Hi experts,

I have the following code below and I would like this code to run from (A1 - A1000) affecting (B1 - B1000).
Please help?


Private Sub Worksheet_Activate()
If [A1].Value = "Other" And [B1].Value = "" Then
[B1].Value = InputBox("What is the reason", "Other")
Worksheet_Activate
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheet_Activate
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheet_Activate
End Sub



any help would be really appreciated.

Thanks
Exceltriumph