SORT

[navyaa]

I have a macro which sorts a range but when the range is empty or for some other reason it gives an error. Is there anyway i can make this work..I am pasting the code below:

Application.Goto Reference:="DTHSORT2"
Range(ActiveCell, ActiveCell.Offset([SETCNT].Value, 0)).Select
ActiveWorkbook.Names.Add Name:="REPORTED", RefersToR1C1:=Selection
Application.Goto Reference:="REPORTED"
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.Goto Reference:="DATES"
Selection.Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Any Suggestions?

Any help would be very appriciated....
Thank you,
Navya

 

[Joe4]

You can add "error handling" to handle the error. Before that section of code, if you put a line in that says "On Error Resume Next", it will skip over any error and go to the next line. Then, after the sort code, you can type in "On Error Goto 0" to reset the code so it won't skip any other errors further on down the line.

If you don't want to skip all the errors, but just one error type, you can use error handling to "capture" the particular error and decide how you want to handle it (i.e. use the "Resume Next" command or print a message). Go to the following web-site for information on error handling:

http://www.barasch.com/excel/vba-errors.htm

Hope this helps!