Ocorreu um erro de tempo de execução 91 em uma simples pesquisa por ID... Por quê? (RESOLVIDO: a pesquisa falhou porque a célula foi formatada como número com vírgula - estranho, mas é verdade, alterei o formato para "geral" e funciona perfeitamente! Obrigado, pessoal!)
Public Sub SearchID()
Dim foundCell As Range
Dim searchEmpID As String
Dim searchRange As Range
Dim rowFound As Integer
searchEmpID = "EmpID_0112"
Set searchRange = Sheets("HoursData").Range("DY2:DY999")
Sheets("HoursData").Select
Set foundCell = searchRange.Find(What:=searchEmpID, LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
MsgBox Sheets("HoursData").Range("DY115").Value '<<<<< Os dados/ID estão lá, veja a captura de tela.
rowFound = foundCell.Row '<<<<<<<<<<<< Why this produces Runtime Error 91/Object Variable Not Set...???
End Sub