I want the user to be able to find each cell matching the What, make changes to any it finds, then upon cancel, continue the VBA to the next What and so on until done with these three searches. Everything I know about VBA comes from searching the internet, so I am missing the fundamentals. Thank you for your time!
Sub Find()
Cells.Find(What:=" LOA", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
With Worksheets("Format").Range("a1:m500")
Application.SendKeys "^f"
Cells.Find(What:=" LDW", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Application.SendKeys "^f"
Cells.Find(What:="TBD", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Application.SendKeys "^f"
End With
End Sub
Bookmarks