1004 Error when hiding/unhiding rows

[ianb]

Hi there. I have a simple piece of code that was written in Excel 2007, but
saved in 97-2003 Excel format. This code seems to work fine in both Excel
2007 and 2003, but not in Excel 2000. He gets a 1004 error message when he is
clicking on the drop-down box. When debugging, the error seems to be occuring
on the first 'entirerow.hidden' instruction. No movements between worksheets
occur. Any help would be appreciated!

Thanks, Ian


Sub ColourMonoChoose()
'
' DropDown29_Change Macro
'

'
Application.ScreenUpdating = False
If Range("d8") = "Colour" And Range("d6") = "MFP" Then
Rows("10:13").Select
Selection.EntireRow.Hidden = False
Rows("11:13").Select
Selection.EntireRow.Hidden = True
Rows("63:64").Select
Selection.EntireRow.Hidden = False
Rows("67:68").Select
Selection.EntireRow.Hidden = False
Rows("73:82").Select
Selection.EntireRow.Hidden = False
Rows("87:88").Select
Selection.EntireRow.Hidden = False
End If
Application.ScreenUpdating = True
End Sub

 

[PCLIVE]

You might try simplifying a little.


Application.ScreenUpdating = False
If Range("d8") = "Colour" And Range("d6") = "MFP" Then
Rows("10:13").EntireRow.Hidden = False
Rows("11:13").EntireRow.Hidden = True
Rows("63:64").EntireRow.Hidden = False
Rows("67:68").EntireRow.Hidden = False
Rows("73:82").EntireRow.Hidden = False
Rows("87:88").EntireRow.Hidden = False
End If
Application.ScreenUpdating = True
End Sub

Regards,
Paul

 

[Don Guillett]

I have never used xl2000 but try this

'Application.ScreenUpdating = False

If Range("d8") = "Colour" And Range("d6") = "MFP" Then
Rows("10:13").Hidden = False
Rows("11:13").Hidden = True
Rows("63:64").Hidden = False
Rows("67:68").Hidden = False
Rows("73:82").Hidden = False
Rows("87:88").Hidden = False
End If

' Application.ScreenUpdating = True
End Sub

 

[ianb]

Hi Don / PCLIVE

Many thanks for your help. I've given this a go at home on my Excel 2000,
and it seems to work. Simplifying is the way forward! I'll send this off to
my client, and hopefully it'll work on their Office 2000 too! Thanks once
again.

Ian

 

[Don Guillett]

Glad to help. Maybe?? its the "entirecolumn" part.???

 

[ianb]

I've just tried it again, and it didn't work. I think the problem is that in
Excel 2007, when you protect a worksheet, you can leave the 'format rows and
columns' unprotected. But, in Excel 2000, it doesn't have this option, and
therefore it believes that hiding or unhiding rows is not allowed due to the
protection.

Any ideas?!