On Error Help

[drozek]

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

 

[DanteAmor]

In post #9 I asked if you wanted to order the entire range of cells and that was your answer in post# 10, I understood that you wanted to order only one column. That means the other columns remain the same and only the macro sorts one column.

 

[drozek]

In post #9 I asked if you wanted to order the entire range of cells and that was your answer in post# 10, I understood that you wanted to order only one column. That means the other columns remain the same and only the macro sorts one column.

Sorry bud, yes the entire range of cells

 

[DanteAmor]

Try this

Range("A6:G" & lr).Sort Cells(6, ShipColumn), 1, , , , , , xlYes