online "excel 2000" for debugging

[johnandbeth]

Does anyone know of a place I can "use" excel 2000 online or download it so I can replicate a runtime macro error for a client?

Thanks much,
Beth

 

[johnandbeth]

Thanks. Those tips are great.
Beth

 

[johnandbeth]

I've cleaned up the code to this. Does this look right?

Sub Rectangle2_Click()
'
Range("D12:F13").Copy
Range("AC3:AE4").Select
ActiveSheet.Paste
Range("AE2").Select
Application.CutCopyMode = False
Selection.Copy
Range("AG2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AG6:AH1941").Select
Application.CutCopyMode = False
Selection.Copy
Range("L7:M7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("L7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
Range("D7:F7").ClearContents
Range("D8:F8").ClearContents
Range("D9").ClearContents
Range("F9").ClearContents
Range("D12:F12").ClearContents
Range("D13:F13").ClearContents
Range("I3").Select
End Sub

 

[Norie]

Beth

It looks better, but you're still using Select when it's not needed.

The first part could probably be condensed to this.

Range("D12:F13").Copy Range("AC3:AE4")
Range("AE2").Copy Range("AG2")

If you really need to paste special values.

Range("D12:F13").Copy
Range("AC3:AE4").PasteSpecial Paste:=xlPasteValues
Range("AE2").Copy
Range("AG2").PasteSpecial Paste:=xlPasteValues

 

[just_jon]

I think, in lieu of using PasteStecial as Values, a simple

range.value = range.value

would be better.

 

[Norie]

Jon

That would be perfectly valid especially in this case where the ranges are the same size.

 

[johnandbeth]

Thank you for the input. I really appreciate it.
~Beth