Sort leading to debug error... any thoughts?

[braindiesel]

I have the following code working as part of a macro without any issue... of course, when I get to my client, I get a debug error...
The topRow and botRow variables are storing numbers and in debug mode, when I hover over them, the correct numbers are showing.
Any thoughts on a better way to write this or am I missing something?

ActiveWorkbook.Worksheets("REPORT5").Sort.SortFields.Add2 Key:=Range( _
"D" & topRow & ":D" & botrow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("REPORT5").Sort.SortFields.Add2 Key:=Range( _
"E" & topRow & ":E" & botrow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal

 

[shg]

There is no Add2 method, and if REPORT5 is not the active sheet you'll get a run-time error.

  With Worksheets("REPORT5")
    .Sort.SortFields.Add Key:=.Cells(toprow, "D")
    .Sort.SortFields.Add Key:=.Cells(toprow, "E")
  End With