Boa Tarde,

Tenho uma macro, planilha anexo que executa a ação se as planilhas forem diferentes a das definida no If.

Gostaria adaptar esse código para que executar a ação somente nas planilhas informadas no código.

Poderia me ajudar....

Sub MACRO()

Application.ScreenUpdating = False

    Dim senha As String
    senha = InputBox("Digite a Senha:", "Senha de Proteção")
    If senha <> "" Then
    MsgBox "Acesso Negado", vbCritical, "Você Não Tem Permissão"
    Exit Sub
    Else

    For Each aba In ThisWorkbook.Sheets
            
                If aba.Name <> "1" Then
                If aba.Name <> "10" Then
                If aba.Name <> "20" Then
                If aba.Name <> "30" Then
                If aba.Name <> "40" Then
                If aba.Name <> "50" Then
                If aba.Name <> "60" Then
                If aba.Name <> "70" Then
                If aba.Name <> "80" Then
                If aba.Name <> "90" Then
                If aba.Name <> "100" Then
            
            
        aba.Select
        Range("A1").FormulaR1C1 = "OK"


        
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If


            
    Next
 End If
    
Application.ScreenUpdating = True


End Sub