Creating an exception for a macro button.

**jonvanwyk** · 06-20-2012, 02:07 PM

The macro below is simply a "Next" button that takes the user to the next appropriate worksheet. I need to modify it so that it performs the following function:

If cell "J18" in worksheet "Menu" is equal to "N/A", then go to cell "F1" in worksheet "Menu", otherwise go to cell "A1" in worksheet "27".

Sub paycycle27()

' nexttosheet27 Macro

    Sheets("27").Select
    Range("A1").Select
End Sub

**StevenM** · 06-20-2012, 02:15 PM

Maybe?

' If cell "J18" in worksheet "Menu" is equal to "N/A",
' then go to cell "F1" in worksheet "Menu",
' otherwise go to cell "A1" in worksheet "27".
Sub paycycle27()
    If Worksheets("Menu").Range("J18") = "N/A" Then
        Worksheets("Menu").Activate
        Range("F1").Select
    Else
        Worksheets("27").Activate
        Range("A1").Select
    End If
End Sub