i'll take a stab, just change the sheet references.

paste it on the relevant worksheet code page


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ws As Worksheet
Dim rng As Range
Set ws = Worksheets("Sheet1")

If Not Intersect(Target, Range("hood")) Is Nothing Then
If ws.Range("hood") 0 Then
Application.Goto (Worksheets("Sheet2").Range("G1")),
scroll:=True
End If
End If
End Sub

--


Gary Keramidas


"Les Stout" wrote in message
...
Hello all, i got a reply on my last post but it is not doing what i
require. What i need to do is the following: if i click on a specific
cell(named range "Hood") and if it is more than zero then i want to go
to another sheet and show the applicable parts.

I would appreciate any help on this please and i thank you in advance
for any help given.


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***