MyRow = Range(Sheets("Log").ListObjects(1).Range.Cells(1).Address(0, 0)).Row
MyColumn = Range(Sheets("Log").ListObjects(1).Range.Cells(1).Address(0, 0)).Column
MyRow = Sheets("Log").ListObjects(1).Row
MyColumn = Sheets("Log").ListObjects(1).Column
Sub test()
Dim address1 As String, myColumn As Long, myrow As Long
address1 = Sheets("Log").ListObjects(1).Range.Cells(1).Address(0, 0)
myColumn = Range(address1).Column
myrow = Range(address1).Row
MsgBox "Column is " & myColumn
MsgBox "Row is " & myrow
End Sub
MsgBox Range(sAddr).Row
MsgBox Range(sAddr).Column