¿Como sabler si esta en un rango con la dirección de una celda $A$1?

Sin estar seleccionada la celda y teniendo su dirección $A$1 pertenece a un rango de A1:B6.

Puedes explicarlo

Tengo la dirección $A$1 de la celda a comprobar...dentro de un rango .

Está $A$1 dentro del rango A1:B6?

Está $A$1 dentro del rango C1:L8?.

Si es así ponemos a true una variable booleana.

Resultado True:

Sub test_1()
  Dim b As Boolean
  '
  If Not Intersect([A1], [A1:B6]) Is Nothing Then
    b = True
  Else
    b = False
  End If
End Sub

Resultado False:

Sub test_2()
  Dim b As Boolean
  '
  If Not Intersect([A1], [C1:L8]) Is Nothing Then
    b = True
  Else
    b = False
  End If
End Sub