Fernando,
You can use a worksheet_change event handler to do just this.

Right click on the worksheet tab then at the top of the VBA edito
window paste:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then Range("B10").Select
End Sub

HT

--
bhofset
-----------------------------------------------------------------------
bhofsetz's Profile: http://www.excelforum.com/member.php...fo&userid=1880
View this thread: http://www.excelforum.com/showthread.php?threadid=38647