Snasui Excel Forum

Code: Select all

Sub Menu()
Dim r As Range
Set r = Worksheets("page1").Range("A1")

If r = 1 Then
        Sheet1.Select
End If
        
If r = 2 Then
        Sheet2.Select
End If
            
If r = 3 Then
        Sheet3.Select
End If
                
If r = 4 Then
        Sheet4.Select
End If
                    
If r = 5 Then
        Sheet6.Select
End If
If r = 6 Then
        Sheet7.Select
End If

If r = 7 Then
        Sheet8.Select
        End If
        
If r = 8 Then
        Sheet9.Select
        End If
        
If r = 9 Then
        Sheet10.Select
        End If
        
If r = 10 Then
        Sheet11.Select
        End If
        
If r = 11 Then
        Sheet12.Select
        End If
        
If r = 12 Then
        Sheet13.Select
        End If
        
If r = 13 Then
        Sheet14.Select
        End If
        
If r = 14 Then
        Sheet15.Select
        End If
        
If r = 15 Then
        Sheet16.Select
End If

End Sub

Code: Select all

Private Sub ComboBox1_Change()
Call Menu
End Sub

Code: Select all

Private Sub Worksheet_Activate()
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
End Sub

Code: Select all

Sub Menu()
    Dim r As Range
    On Error Resume Next
    Set r = Worksheets("page1").Range("A1")
    If r Is Nothing Then
        On Error GoTo 0
        Exit Sub
    End If
'Other code