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


"Lars-Åke Aspelin" wrote:

On Mon, 05 Jan 2009 22:29:10 GMT, Lars-Åke Aspelin
wrote:

On Mon, 5 Jan 2009 14:08:03 -0800, 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


Try this macro in the worksheet where your cell A3 is located

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A3")) Is Nothing Then
Worksheets("Sheet3").Activate
End Sub

Hope this helps / Lars-Åke

Change this to

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A3")) Is Nothing Then
Worksheets("3").Activate
End Sub

and remember to put the code in the sheet where you have the "A3"
cell.

Lars-Åke