Code runs but not from a button.

[Russk68]

On a Mac. This code runs fine from the editor but doesn't run from a shape with the macro assigned to it. I tried a few time just to make sure that I was assigning the correct macro.
Thanks in advance!

Sub ToggleSheetVisibility()
    Dim shtName As Range
    Dim tabsUpdated As Boolean
    tabsUpdated = False
    For Each shtName In Range("L18:L42")
        On Error Resume Next ' <-- Ignore any sheets that are not found
        Dim sht As Worksheet
        Set sht = Worksheets(shtName.Value)
        If Not sht Is Nothing Then
            Dim col As Integer
            For col = 11 To 12 ' <-- Loop through columns K to L
                If Cells(shtName.Row, col).Value = True Then
                    sht.Visible = True ' <-- Unhides the sheet
                    tabsUpdated = True
                    Exit For
                End If
            Next col
            If col = 13 Then ' <-- None of the cells were true
                sht.Visible = False ' <-- Hides the sheet
                tabsUpdated = True
            End If
        End If
    Next shtName
    If tabsUpdated Then
        MsgBox "Tabs were updated"
    End If
End Sub
/CODE]

 

[Alex Blakenburg]

Is your button on the sheet that contains Range("L18:L42") ?
The code is assuming that the List of sheet names is on the Active Sheet.

 

[Skyybot]

Have you tried clicking New when assigning the macro to the shape and then pasting your code inside of the new macro?

 

[Skyybot]

Have you tried clicking New when assigning the macro to the shape and then pasting your code inside of the new macro?

Sorry, I mean calling your code.

 

[Skyybot]

On a Mac. This code runs fine from the editor but doesn't run from a shape with the macro assigned to it. I tried a few time just to make sure that I was assigning the correct macro.
Thanks in advance!

Sub ToggleSheetVisibility()
    Dim shtName As Range
    Dim tabsUpdated As Boolean
    tabsUpdated = False
    For Each shtName In Range("L18:L42")
        On Error Resume Next ' <-- Ignore any sheets that are not found
        Dim sht As Worksheet
        Set sht = Worksheets(shtName.Value)
        If Not sht Is Nothing Then
            Dim col As Integer
            For col = 11 To 12 ' <-- Loop through columns K to L
                If Cells(shtName.Row, col).Value = True Then
                    sht.Visible = True ' <-- Unhides the sheet
                    tabsUpdated = True
                    Exit For
                End If
            Next col
            If col = 13 Then ' <-- None of the cells were true
                sht.Visible = False ' <-- Hides the sheet
                tabsUpdated = True
            End If
        End If
    Next shtName
    If tabsUpdated Then
        MsgBox "Tabs were updated"
    End If
End Sub
/CODE]

Sub Oval1_Click()

Call ToggleSheetVisibility

End Sub
Sub ToggleSheetVisibility()
    Dim shtName As Range
    Dim tabsUpdated As Boolean
    tabsUpdated = False
    For Each shtName In Range("L18:L42")
        On Error Resume Next ' <-- Ignore any sheets that are not found
        Dim sht As Worksheet
        Set sht = Worksheets(shtName.Value)
        If Not sht Is Nothing Then
            Dim col As Integer
            For col = 11 To 12 ' <-- Loop through columns K to L
                If Cells(shtName.Row, col).Value = True Then
                    sht.Visible = True ' <-- Unhides the sheet
                    tabsUpdated = True
                    Exit For
                End If
            Next col
            If col = 13 Then ' <-- None of the cells were true
                sht.Visible = False ' <-- Hides the sheet
                tabsUpdated = True
            End If
        End If
    Next shtName
    If tabsUpdated Then
        MsgBox "Tabs were updated"
    End If
End Sub

 

[Skyybot]

Sorry, I assumed by your question you were using a "Shape". Are using a drawn shape or an inserted Command Button?

 

[MARK858]

Is your button on the sheet that contains Range("L18:L42") ?
The code is assuming that the List of sheet names is on the Active Sheet.

and the same question with the line below (for the same reason)

If Cells(shtName.Row, col).Value = True Then

 

[Russk68]

Sorry, I assumed by your question you were using a "Shape". Are using a drawn shape or an inserted Command Button?

A drawn shape on a MAC

 

[Russk68]

Is your button on the sheet that contains Range("L18:L42") ?
The code is assuming that the List of sheet names is on the Active Sheet.

Yup

 

[Russk68]

Thank you all for your suggestions.
There was an active Hyperlink that prevented the macro from running.