View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
ufo_pilot ufo_pilot is offline
external usenet poster
 
Posts: 142
Default Application GoTo

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