Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
If Target.Value = 1 Then
Range("A2").Value = "hello world"
Else
Range("A2").Value = ""
End If
Application.EnableEvents = True
End If
End Sub