Cells property

[SandyUK]

I am trying to refer to A1 using the Cells property rather than using Range as i understand it is better practice and will help as i learn to use VBA. However i cannot seem to make it happen.

Here is what i have using Range which works fine. Could anybody help by replacing it with the equivillant Cells property so i can see where i am going wrong?

Sub CheckA1()

If ActiveCell = Range("A1") Then
MsgBox ("Active cell is A1")
Else: MsgBox ("Active cell is NOT A1")
End If

End Sub

Regards

Adrian

[Leith Ross]

Hello Adrian,

The first step in using the Cells property is translating the range address into row and column numbers. Fortunately, VBA can do this for us.

Example of Translating Range Address:

With Range("A1")
Row = .Row
Col = .Column
End With

Now the numbers can then be plugged into the Cells property...

Cells(Rol, Col). <other property>

Converting Your Code:

Sub CheckA1()

With ActiveCell
Row = .Row
Col = .Column
End With

If Row = 1 And Col = 1 Then
MsgBox ("Active cell is A1")
Else: MsgBox ("Active cell is NOT A1")
End If

End Sub

Hope this answers your question,
Leith Ross