Hide/Unhide Sheets based on drop down list

Well you had to change some of the specifics like the sheet name and the dropdown cell since you originally specified A1 and Sheet1. I've done it for you below.

Dim i As Integer

If Sheets("Control Tab").Cells(5, "C").Value2 = "All Divisions" Then

    For i = 2 To 5
        Sheets(i).Visible = xlSheetVisible
    Next i
Else

    For i = 2 To 5
        If Sheets(i).Name = Sheets("Control Tab").Cells(5, "C").Value2 Then
            Sheets(i).Visible = xlSheetVisible
        Else
            Sheets(i).Visible = xlSheetHidden
        End If
    Next i

End If

just copy and paste that below your existing code. (Below "Set Changed = Nothing")

just tested it and worked fine to hide and unhide sheets.