Find Active cell value in another column and select it

[julhs]

So if:
Active cell in Col A = “abc” , want to find and select “abc” in Col C

 

[Joe4]

Try this:

Sub MyFindMacro()

    Dim fnd As Variant
    Dim rng As Range
   
'   Capture the value from the active cell
    fnd = ActiveCell.Value
   
'   Find value in column C
    Set rng = Columns("C:C").Find(What:=fnd, After:=Range("C1"), LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
       
'   If found select it, otherwise return message
    If rng Is Nothing Then
        MsgBox "Cannot find " & fnd & " in column C", vbOKOnly, "ERROR!"
    Else
        rng.Select
    End If
   
End Sub

 

[julhs]

Thank you Joe.
I swear I had things working to do this BEFORE computer crashed, HaHo!!!
What you’ve given me does what I needed, so I can now work it into my primary code to do what I intended
Many thanks again for response
Julhs

 

[Joe4]

You are welcome.
Glad I was able to help!