AnHien_Sheet.bas

Sub AnHien_Sheet()
Dim lr As Long
    lr = Sheets("MENU").Cells(Rows.Count, 1).End(xlUp).Row

Dim sodong As Long
'An/hien sheet
For sodong = 2 To lr
    'Mo an tat ca cac sheet
    Worksheets(Sheets("MENU").Range("A" & sodong).Value).Visible = xlSheetVisible
    'An sheet duoc danh dau
    If Sheets("MENU").Range("B" & sodong).Value = "x" Then
        Worksheets(Sheets("MENU").Range("A" & sodong).Value).Visible = xlSheetHidden
    End If
Next sodong

Sheets("MENU").Activate
End Sub