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