What is wrong with this code?

M

Matt

Can someone tell me what is wrong with this code. I am getting an object required error. Thanks.

Sub TestStuff()
Dim MBT As String
Dim fc As OLEObject
Dim t As Integer

If ActiveSheet.Name = "TIME AND LEAVE" Then
For Each fc In OLEObjects
If TypeOf fc.Object Is MSForms.Checkbox Then
t = CInt(Mid$(fc.Name, 9))
With ActiveSheet
For t = 2 To 30
If ActiveSheet.Range("Cell" & t).Value <> "" Then
ActiveSheet.OLEObjects("CheckBox" & t).Visible = False
Else
ActiveSheet.OLEObjects("CheckBox" & t).Visible = True
End If
Next
End With
End If
Next fc
End If
End Sub
 
Top