Puedes probar con esto (iría en la hoja en cuestión, no en un módulo de VBA):
Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
'El valor lo generamos en la celda A1
p = 0.9
If Target.Cells = Range("A1") And Range("A1") = p Then
Range("A2") = "aquí pon algo"
Else
Range("A2").Clear
End If
End Sub