Hello Ray316,
Welcome to the Forum!
This macro will Select the cell in column "A" if it is found.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2,D4")) Is Nothing Then
Set Cell = Columns("A:A").Find(Target, , xlFormulas, xlWhole, xlByRows, xlNext, False)
If Not Cell Is Nothing Then Cell.Select
End If
End Sub
How to Save a Worksheet Event Macro- Copy the macro using CTRL+C keys.
- Open your Workbook and Right Click on the Worksheet's Name Tab for the Worksheet the macro will run on.
- Left Click on View Code in the pop up menu.
- Paste the macro code using CTRL+V
- Make any custom changes to the macro if needed at this time.
- Save the macro in your Workbook using CTRL+S
Bookmarks