Macro Recorder and Compatibility Problems

Fujirich said:

Hi folks - I have just discovered a compatibility problem with an Excel file I developed for some of my co-workers. I'm hoping for some insight from the experienced folks here at the forum.

I'm running Excel 2003 on a Win XP platform. I recorded a few macros to use as sorting functions, and linked them to buttons on the page. I cleaned up the spurious code (all scrolling related), added screenupdating and protection code, and left everything else as is.

It all works fine on my two computers running XP (one with Excel 2003 and one with Excel 2002.

But, when I run on an older machine with Win 98 and Excel 2000, I get runtime errors.

Here's the code:

Code:

Sub SortButton_Volume()
'
' SortButton_Volume Macro
' Macro recorded 12/20/2003 by Richard J. Herbert
'

'
Application.ScreenUpdating = False
ActiveSheet.Unprotect ("egssales")
    Columns("M:T").Select
    Selection.EntireColumn.Hidden = False
    Range("A19:O318").Select
    Selection.Sort Key1:=.Range("F19"), Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Columns("N:S").Select
    Range("N2").Activate
    Selection.EntireColumn.Hidden = True
    Range("G1").Select
ActiveSheet.Protect ("egssales")
Application.ScreenUpdating = True
End Sub

Is there anything here that would cause the runtime problem on the older systems?

Any ideas?

Thanks,
Rich

Click to expand...

Sub SortButton_Volume()
'
' SortButton_Volume Macro
' Macro recorded 12/20/2003 by Richard J. Herbert
'

'
Application.ScreenUpdating = False

With ActiveSheet
    .Unprotect ("egssales")

    .Columns("M:T").EntireColumn.Hidden = False
    .Range("A19:O318").Sort Key1:=.Range("F19"), _
        Order1:=xlDescending, _
        Header:=xlYes
    .Columns("N:S").EntireColumn.Hidden = True
    
    .Protect ("egssales")
End With

Application.ScreenUpdating = True
End Sub