Give this a whirl... Find is subject to the settings last selected using Find
in Excel. As a guess some of them have been changed since you last ran the
code

Sub ViewCert()
Dim rngToSearch As Range
Dim rngFound As Range
Dim wks As Worksheet
Set wks = ActiveSheet
Set rngToSearch = Worksheets("Certs").Range("A66:A2020")
Set rngFound = rngToSearch.Find(What:=wks.Range("C2"), _
LookAt:=xlPart, MatchCase:=false)

If Not rngFound Is Nothing Then
Worksheets("Certs").activate
rngFound.activate
Else
msgbox "Not Found"
End If
End Sub
--
HTH...

Jim Thomlinson


"ufo_pilot" wrote:

Hello all
Before the holidays. this code worked
after the magic of christmas is gone, so is the integrity of this code.
What went wrong?
Through a drop down menu, the user selects a name which appears in C2
upon clicking the "View Cert" button it takes you to the name that matches
C2 this will be anywhere between A66:A2020
now it does nothing - no errors either
Stumped



Sub ViewCert()
Dim rngToSearch As Range
Dim rngFound As Range
Dim wks As Worksheet
Set wks = ActiveSheet
Set rngToSearch = Worksheets("Certs").Range("A66:A2020")
Set rngFound = rngToSearch.Find(Range("C2"))

If Not rngFound Is Nothing Then
Application.Goto Range(rngFound.Address), True
End If
End Sub