Hi
Is there any specific reason for you to use Shell? Why it be done using VBA?
For your second query. Can you try the following:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
MsgBox "Do something"
Else
' Do nothing
End If
End Sub
Cheers
Shasur