在excel中怎么实现从A1格移动到B1格时自动执行一段程序

在excel中如何实现从A1格移动到B1格时自动执行一段程序
移动格对应的VBA是Range( "B1 ").Select
原来我是通过点击一个按钮执行这段程序的，现在想A1格移动到B1格时自动执行这段程序

------解决方案--------------------
在相应的sheet中添加如下代码即可！

Public last_address
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Selection.Address = "$B$1 " And last_address = "$A$1 " Then
MsgBox "现在可以执行我想要执行的程序了！ "
last_address = Application.Selection.Address
Else
last_address = Application.Selection.Address
End If
End Sub