Excel 97 'Error 424' 1

[ChrisBurch]

Hi all,

I'm getting a 424 'Object required' when the following sub gets to the option button state change.

Can anyone assist?

Sub Blank_Sheet()
'
' Blank_Sheet Macro
' Macro recorded 28/02/2002 by Chris Burch
'
On Error GoTo ErrorHandler

ActiveSheet.Unprotect

' Clear the sheet contents

Range("B44,A17:J44&quot.Select
Selection.ClearContents
Range("B4&quot.Activate

'Make sure sheet status is set to 'Part',
'by setting option buttons

OptComp.Value = False 'Option button
OptPart.Value = True 'Option button

ActiveSheet.Protect
ErrorExit:

Exit Sub
ErrorHandler:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description, vbExclamation
Resume Next 'ErrorExit

End Sub Chris

It worked yesterday.
It doesn't work today.
That's Windows!

 

[dsb]

Chris
Two reasons to get such a message would be...

1. the optPart and optComp controls do not exist on this
sheet.
2. this subroutine has been moved from a specific sheet to a module where the controls would need to be qualified
(activesheet.optpart.value).

dsb

 

[ChrisBurch]

Thanks dsb,

The sub is called by a Button which is on the same sheet as the option controls, in fact the Workbook has only got the one sheet. So I still can't see why it wasn't working.

No matter though, I changed to activesheet.optpart.value and it works fine.

Yerbloodsworthbotling Chris

It worked yesterday.
It doesn't work today.
That's Windows!