Thanks, worked great!

"Bob Phillips" wrote in message
...
Try the worksheet select event

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$8" Then
With Target
'do your stuff
End With
End If
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)