How to unhide Sheets based on 3 cell values

[Kenneth Hobs]

Welcome to the forum!

Private Sub CommandButton1_Click()    
    Dim c As Range
    On Error Resume Next
    For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
        Worksheets(c.Value).Visible = xlSheetVisible
    Next c
End Sub