Error message in Excel 2000

[rkmusselman]

I have created a very large workbook with many excel macros. This workbook is used by many users many of which use Excell 2000, 2002 and 2003. My Excel 2000 user are experiencing errors with some of the macros the one below in particular, which is srange because it was written years ago in Excel 97. My 2002 and 2003 users do not have any problems with this macro.

' Refresh Macro
' Macro recorded 4/5/97
'
'
Private Sub Refresh()
ActiveWorkbook.Unprotect ("password")
Application.ScreenUpdating = False
'Sub UnHideSheets()
'This macro needs to be placed in the Workbook that has very hidden
'worksheets and run from there.
'This should be done to update any hidden sheets and then removed after
'the sheets are hidden using the macro above.
Dim c
For Each c In ThisWorkbook.Sheets
c.Visible = True
Next c
Sheets("A").Select
Application.Goto Reference:="START_COPY"
ActiveSheet.Unprotect ("password")
' Refresh Small Charts on Page
refresh_charts "Chart 7", "m_cum_st", "m_cum", "Y", "A"
refresh_charts2 "Chart 6", "chart6_st", "chart6_range", "Y", "CRF"
refresh_charts2 "Chart 5", "chart5_st", "chart5_range", "Y", "CRF"
refresh_charts "Chart 4", "m_hrcum_st", "m_hrcum", "Y", "A"
refresh_charts "Chart 46", "m_visit_st", "m_visit", "Y", "A"
enroll_charts "Chart 2", "chart2_st", "chart2_range", "Y"
enroll_charts "Chart 1", "chart1_st", "chart1_range", "Y"
Investigator_chart "Chart 3", "Invest_chart_st", "Invest_chart_range", "Y"
' Refresh Large Charts in Workbook
refresh_charts "MONT CUM", "m_cum_st", "m_cum", "N", "A"
refresh_charts2 "CRFCUM", "chart6_st", "chart6_range", "N", "CRF"
refresh_charts2 "CRF STATUS", "chart5_st", "chart5_range", "N", "CRF"
refresh_charts "MONHRSCUM", "m_hrcum_st", "m_hrcum", "N", "A"
refresh_charts "MONITVISIT", "m_visit_st", "m_visit", "N", "A"
enroll_charts "CUMULATIVE", "chart2_st", "chart2_range", "N"
enroll_charts "WEEKLY ENROLL", "chart1_st", "chart1_range", "N"
Investigator_chart "INVAPPROV", "Invest_chart_st", "Invest_chart_range", "N"
'Add new graphs to this area
Sheets("A").Select
ActiveSheet.Protect ("password")
Sheets("MONHRSCUM").Visible = x1hidden
Sheets("MONt CUM").Visible = x1hidden
Sheets("Weekly Enroll").Visible = x1hidden
'Sub HideWorkbooksW_M()
'Hides Sheets A B and CRF in Weekly and Monthly models
Sheets("CRF").Visible = xlVeryHidden
Sheets("B").Visible = xlVeryHidden
Sheets("A").Visible = xlVeryHidden
Sheets("PtVisits").Visible = x1VeryHidden
Sheets("CumPtVisits").Select
Sheets("CumPtVisits").Visible = x1VeryHidden
ActiveWorkbook.Protect ("password")

Sheets("Table of Contents").Select
ActiveSheet.Range("A1").Select

End Sub


This macro refreshes charts begining and end dates so that the graph axis only shows dates specific fpr the dates for the selected graph. The data for selected sheets is also made very hidden by this macro. It is erroring at the line that is highlighted in BOLD ITALICS at Visible= 1Xhidden. Any help would be greatly appreciated.

Thanks

RKM

 

[Mombuca]

maybe because doesn't X1HIDDEN but XLHIDDEN.

try !

 

[rkmusselman]

I'm not sure I understand your response. Are you indicating the the number one may be a lower case l and therefore not working. If so this is not the case. The ones are all really one and not lower case l's.

Also, this macro works in EXCEL versions 2002 and 2003 but not in 2000.

RKM

 

[Norie]

The one's shouldn't be ones they should be l's.

 

[rkmusselman]

I'll try it and let you know how it turns out.

RKM