Boa tarde,

Preciso de uma ajuda simples. Abaixo o código do colega Mauro Coutinho que, busca nos títulos da colunas pelo caracterer "*", em seguida bloqueia as colunas que contém o caracter. Mas a busca está sendo realizada na primeira linha da planilha. Acontece que preciso que a busca seja feita na linha 9, onde estão os títulos agora.

Obrigado!

Sub BloqueiaColsCriterio()
Dim lgTtColunas As Long
Dim iCol As Long
Dim myCol As String

    ActiveSheet.Unprotect ("SuaSenha")
    
    Cells.Locked = False
    
    'Conta as colunas preenchidas
    lgTtColunas = Cells(1, Columns.Count).End(xlToLeft).Column
    
    For iCol = 1 To lgTtColunas
        
        'Condição
        'If Cells(1, iCol).Value = "VALOR ATUAL" Then
         If InStr(1, Cells(1, iCol), "*") Then  
         myCol = GetColumnLetter(iCol)
         
         Range(myCol & "2:" & myCol & "400").Locked = True
        
        End If
        
    Next iCol

    ActiveSheet.Protect ("SuaSenha")

End Sub

Function GetColumnLetter(colNum As Long) As String
    Dim vArr
    vArr = Split(Cells(1, colNum).Address(True, False), "$")
    GetColumnLetter = vArr(0)
End Function