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