Obrigado pela dica, mas já encontrei o código, e neste caso em vez de procurar o nº da linha, procura o valor pretendido (na coluna d), encaminhando-se de imediato para a célula correspondente.
Sub teste()
For vlin = 5 To Cells(Rows.Count, "a").End(xlUp).Row
If Cells(vlin, "d").Value = Cells(1, "j") Then
Cells(vlin, "a").Select 'Rows(vLin).Select
ActiveSheet.Unprotect
End If
Next vlin
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True
End Sub
↧