G
Guest
The programming below was recorded and modified in Excel 2003, it fails on
Excel 2000. Is there a way to save the file or convert it to make it work in
Excel 2000 without having to sit down and debug all of what is
non-compatible? I doubt there is, but thought I would see if there was a
quick and easy way. Thanks.
Range("A16
500").Select
Selection.Copy
Range("S16").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("AG17"), Order1:=xlAscending, Key2:=Range( _
"af17"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Excel 2000. Is there a way to save the file or convert it to make it work in
Excel 2000 without having to sit down and debug all of what is
non-compatible? I doubt there is, but thought I would see if there was a
quick and easy way. Thanks.
Range("A16
500").SelectSelection.Copy
Range("S16").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("AG17"), Order1:=xlAscending, Key2:=Range( _
"af17"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal