Gửi anh/chị
Tôi viết thủ tục dưới để hiện 1 sheet đang bị ẩn. Checkpass, Sheet_Name là biến truyền vào. Nhưng khi run bị lỗi.
anh/chị xem giùm lỗi này và cách khắc phục
---------------------------------------------
Sub Sheet_Action(ByVal checkPass As Boolean, ByVal Sheet_Name As String)
Dim ws As Worksheet
Set ws = Sheet_Name
If (checkPass = True) Then
ws.Visible = True
End If
End Sub
----------------------------------------------