Application defined or object defined error

[dpaton05]

I try to run this code and all it says it application defined or object defined error and it highlights this row

Workbooks(DocYearName).Worksheets(Combo).Range("A5").CurrentRegion.Select key1:=Range("A3"), order1:=xlAscending, header:=xlYes

However, I don't think it is a problem with this line of code as it used to work and now it has stopped, despite having done nothing to the particular line of code.
DocYearName and Combo are variables.

Please help me as I am totally stumped.

Thanks,
Dave

 

[Yongle]

It has stopped despite having done nothing to the particular line of code

You have inadvertently amended that line

BAD
Workbooks(DocYearName).Worksheets(Combo).Range("A5").CurrentRegion.Select key1:=Range("A3"), order1:=xlAscending, Header:=xlYes

GOOD
Workbooks(DocYearName).Worksheets(Combo).Range("A5").CurrentRegion.Sort key1:=Range("A3"), order1:=xlAscending, Header:=xlYes

 

[dpaton05]

You have inadvertently amended that line

GOOD
Workbooks(DocYearName).Worksheets(Combo).Range("A4").CurrentRegion.Sort key1:=Range("A3"), order1:=xlAscending, Header:=xlYes

Thanks, I knew it was something simple like that but it still isn't working. I am still getting an error, The sort reference is not valid. Make sure that it's within the data you want to sort, and the first sort box isn't the same or blank.

The sort is occuring in a range and will be sorted from earliest to latest. It is being sorted by date. The data to be sorted starts in A4 and goes down from there. Above that are headers (A3) and other bits and pieces that won't be part of the sort process. I have columns that need sorting with the date up to column P.

This is the code I have put in but am now getting the above error with.

        Workbooks(DocYearName).Worksheets(Combo).Range("A4").CurrentRegion.sort Key:=Range("A1"), order1:=xlAscending, header:=xlYes

Any help would be greatly appreciated.

 

[Yongle]

Key:=Range("A1")

Is A1 inside your sort range?
A4 perhaps?