View Single Post
  #3  
Old June 6th, 2010, 04:30 PM posted to microsoft.public.excel.worksheet.functions
Gord Dibben
external usenet poster
 
Posts: 20,252
Default Select a worksheet

Private Sub Worksheet_Calculate()
On Error GoTo stoppit
Application.EnableEvents = False
With Me.Range("A1")
If .Value = "Desktop" Then
Sheets("Desktop").Select
ElseIf .Value = "Notebook" Then
Sheets("Notebook").Select
End If
End With
stoppit:
Application.EnableEvents = True
End Sub

Right-click on the sheet tab and "View Code". Copy/paste the code into that
sheet module.

Edit the "A1" to suit.

Alt + q to return to Excel.


Gord Dibben MS Excel MVP


On Sat, 5 Jun 2010 15:22:00 -0700, Phil
wrote:

I'm using the below formula to determine the specific type of equipment from
a list named: database

=IF(VLOOKUP($J$2,Database!$A:$U,21,FALSE)=$X$2,"D esktop",IF(VLOOKUP($J$2,Database!$A:$U,21,FALSE)=$ X$5,"Notebook","Error!!!!!!!"))

value of X2 = DSK and value of X5 = NBK

What I need help with is a way of using the value returned to automatically
open the relevant worksheet, ie: If "Desktop" is returned the Desktop
worksheet needs to open and if "Notebook" is returned the notebook worksheet
needs to open automatically. All worksheets are in the same workbook.