Sort it out!!!!!!

[nigelandrewfoster]

This macro stops with "Application or object defined error at the red line. As far as I can see, the structure is identical to that which I have used successfully on other macros. What's the problem, please? Sheet is unprotected. Thanks.

Dim put_row As Integer, get_row As Integer, inv_method As Variant, ws As Worksheet
Set ws = Worksheets("WEEKLY INVOICES")
ws.Range("clear_inv_list_col").Interior.ColorIndex = xlNone

ws.Range("GH13:GO117").Copy
ws.Range("GH126").PasteSpecial Paste:=xlPasteValues
With ws.Range("gh126:go230")
    [COLOR="Red"].Sort Key1:=.Range("GO126"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1[/COLOR]
End With

 

[RoryA]

Your sort key is wrong:

With ws.Range("gh126:go230")
    .Sort Key1:=ws.Range("GO126"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1
End With

 

[VoG]

Try this

With ws
    .Range("gh126:go230").Sort Key1:=.Range("GO126"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1
End With

 

[nigelandrewfoster]

Thank you both for your prompt and helpful response. I'm up and running now. VBA can be so subtle sometimes. Or should that be often!!