Hỏi về ActiveSheet

[vova2209]

    If ActiveSheet.Name = ("1.KL S", "1.KL V", "2.Cao Do", "2.CDK95", "KLL-K95", "CDL-K95", "CDTN") Then
        Call GPE
    Else
        MsgBox "Ban phai chon o* Sheet(CD...)", vbCritical, "Update công thú*c"
    End If

Em muốn chỉ khi ActiveSheet tại những sheets ("1.KL S", "1.KL V", "2.Cao Do", "2.CDK95", "KLL-K95", "CDL-K95", "CDTN") thì code mới chạy
. Anh chị giúp đỡ em

 

[SA_DQ]

Chắc vầy, thử xem:

Sub GPE_Cha()
 Dim ShName As String
 
 ShName = "1.KL S@1.KL V@2.Cao Do@2.CDK95@KLL-K95@CDL-K95@CDTN"
 If InStr(ShName, ActiveSheet.Name) Then
    GPE_con
 Else
    MsgBox "Ban phai chon Ô Sheet(CD...)", vbCritical, "Update công thúc"
 End If
End Sub

 

[vova2209]

Chắc vầy, thử xem:

Sub GPE_Cha()
Dim ShName As String

ShName = "1.KL S@1.KL V@2.Cao Do@2.CDK95@KLL-K95@CDL-K95@CDTN"
If InStr(ShName, ActiveSheet.Name) Then
    GPE_con
Else
    MsgBox "Ban phai chon Ô Sheet(CD...)", vbCritical, "Update công thúc"
End If
End Sub

Chuẩn rồi anh! em muốn hỏi tý
Còn muốn If InStr(ShName, ActiveSheet.Name) Then chạy khi chỉ cần tìm được chữ KL Thì chạy code "VD Sheets(KL1, KL2, KL9, KLabc, CT KL, x KL vv, ABKL" thì làm thế nào ạ