Uma família de softwares de planilhas da Microsoft com ferramentas para analisar, criar gráficos e comunicar dados.
Não sei exatamente o que quer fazer, mas antes de partir para o VBA veja se o uso de uma regra de validação não resolve o seu problema.
Caso contrário, pode fazer algo assim:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ErrHandler
If Range("B2").Value <> 2 Then
Range("B2").Select
End If
ExitHere:
Exit Sub
ErrHandler:
MsgBox Err.Description & vbCrLf & Err.Number & vbCrLf & Err.Source, vbCritical, "Plan1-Worksheet_SelectionChange"
Resume ExitHere
Resume
End Sub