On Wed, 22 Jun 2005 11:36:14 +0100, "Bob Phillips"
wrote:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next
If Not Intersect(Target, Range("job_no")) Is Nothing Then
Application.ScreenUpdating = False
Worksheets("summary").Calculate
'Call ...MyCode.....
Application.ScreenUpdating = True
End If

End Sub


Many thanks Bob. That works fine.

So that I can better understand my original problem, what does the
'Not Intersect....Is nothing' do/mean in English?

Rgds
__
Richard Buttrey
Grappenhall, Cheshire, UK
__________________________