Localizando dados com For Each

Aqui vamos percorrer toda a coluna A para localizar um dado que esta na coluna C com o for each.

Sub localizar()

Dim i As Range
For Each i In Sheets("Plan1").Range("A1:A15000")
If i.Value = Sheets("Plan1").Range("C1") Then
i.Select
End If
Next

End Sub


codigo muito util para localizar datas no excel, visto que na coluna C1 você pode inserir uma fórmula =hoje(), e este códgo no workbookopen do VBA e sempre que você abrir a planilha de excel ele localizará a data.