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?!

"Don Guillett" wrote:

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"ianb" wrote in message
...
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" wrote:

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"ianb" wrote in message
...
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