Como obter o número da linha no Excel
MsgBox "Active-Row: " & ActiveCell.Row, vbInformation
'******
Sub acitveCellInfo()
MsgBox "Active-column: " & ActiveCell.Column & ", Active-Row: " & ActiveCell.Row, vbInformation, "Active Cell"
End Sub
Zenity Code