Hi,
the Worksheet Activate event code should read this...

Private Sub Worksheet_Activate()
Let strLastCell = ActiveCell.Address
End Sub

otherwise the code will fire from the first cell you "exit"
Cheers,
O

--
Message posted via http://www.officekb.com