How would I do the following?
If I get an error with the following code:
Cells.Find(What:="Ship - To", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate
It would run the Sub Named OneShipTo
If I get an error with the following code:
Cells.Find(What:="Ship - To", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate
It would run the Sub Named OneShipTo