如何使用vb处理excel表格返回查找到的单元格的行号与列号

Sub test()
Dim rng As Range
Dim rg1 As Range
Dim r As Integer: Dim c As Integer
Set rng = Sheet1.Range("a1").CurrentRegion

Set rg1 = rng.Find("宁羽凡")
If Not rg1 Is Nothing Then
r = rg1.Row
c = rg1.Column
MsgBox "所在行：" & r & "所在列：" & c

 Else
MsgBox "没有找到记录！"
End If

End Sub