Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement