If Selection.Count = 1 'está mal

Hola amigos,

Estaba intentando utilizar éste codigo, pero no me funciona cuando
selecciono mas de una celda (error en tiempo de ejecución, no coinciden

tipos):

If Selection.Count = 1 And Selection.Offset(0, -1).Value = 2 Then
Call miMacro
End If


.

también probé algo así:

If Range.Select.Count = 1 Then
If Selection.Offset(0, -1).Value = 2 Then
Call miMacro
End If
End If
pero me dice que el argumento (range) no es opcional

¿Cómo lo puedo corregir?
Pretendo que sólo se ejecute si en la columna de la izquierda tengo el

2 y cuando seleccione una sola celda.

Saludos. Gracias.
javier