Got it working thanks, is there a quick way to do this through 150 cells to
150 sheets?

Regards

"Gary''s Student" wrote:

Put this event macro in the worksheet code area:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A3")) Is Nothing Then
Else
Application.Goto reference:=Sheets("Sheet3").Range("A1")
End If
End Sub
--
Gary''s Student - gsnu200823


"santaviga" wrote:

Hi,

I am looking for a formula or macro so that when an active cell is selected
lets say cell A3 is selected excel will automatically go to a sheet number
specified say Sheet 3.

Any help would be much appreciated.

Regards