Can't get this Macro to work

Hi tyler,

If you indent your code you would have found that you didn't provide a Next r.

Sub Update_Tabs()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        For Each r In ws.Range("B1:L1")
            If r.Value = "No" Then
                r.EntireColumn.Hidden = True
            Else
                r.EntireColumn.Hidden = False
            End If
        Next r
    Next ws
End Sub

Also, and just to go one step further, you can declare r too, much like how you nicely declared ws

Sub Update_Tabs()
    Dim ws As Worksheet
    Dim r As Range
    For Each ws In ThisWorkbook.Worksheets
        For Each r In ws.Range("B1:L1")
            If r.Value = "No" Then
                r.EntireColumn.Hidden = True
            Else
                r.EntireColumn.Hidden = False
            End If
        Next r
    Next ws
End Sub