Function RowName(address As String) As Long
Dim i As Long, lengthAddress As Integer
lengthAddress = Len(address)
Do While Not IsNumeric(Mid(address, i + 1)) And i < lengthAddress
i = i + 1
Loop
RowName = Val(Right(address, lengthAddress - i))
End Function