[VBA/EXCEL'07] Chiarimento: Necesario Oggetto

[leomac]

Salve a tutti,
ho il seguente codice:

Sub Trova ()
Application.ScreenUpdating = False
Data = CDate(TextBox1)
Dim CL As Object
zona = Range(Range("U88"), Range("U88").End(xlDown))
For Each CL In zona
If CL = Data Then
W = CDate(CL.Offset(0, 1).Value)
ComboBox1.AddItem W
ComboBox1.AddItem CL.Offset(0, 2).Value
i = i + 1  'la variabile "i" è il contatore
End If
Next
If i > 0 Then
MsgBox "Sono Presenti " & i & " lavori"
Else
MsgBox "Nessun lavoro per questa data"
End If
Application.ScreenUpdating = True
End Sub

all'avvio della macro, mi scirve Errore: Necessario Oggetto, evidenziandomi la stringa:

For Each CL In zona

Non caipsco ma l'oggetto non l'ho già dichiarato con "Dim CL As Object" ?? Sempre se è a quello e non a "zona" che si riferisce.
Grazie.

[cassano]

Prova

Dim CL As new Object

[leomac]

Grazie cassano ma credo che l'errore era nel combobox. Ora mi trovo preò difronte ad altro problema. Posto il codice:

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Application.ScreenUpdating = False
    Dim CL As Object
If OptionButton1.Value = True Then
    TextBox1 = MonthView1.Value
    Data = CDate(TextBox1)
    Set zona = Range(Range("U88"), Range("U88").End(xlDown))
        For Each CL In zona
            If CL = Data Then
                TextBox2 = CL.Offset(0, 3).Value
                TextBox3 = CL.Offset(0, 4).Value
                TextBox4 = CL.Offset(0, 5).Value
                TextBox5 = CL.Offset(0, 6).Value
                ComboBox1.AddItem CL.Offset(0, 2).Value
                i = i + 1 
            End If
        Next
            If i > 0 Then
                MsgBox "La data è presente"
            Else
                MsgBox "Questa data non è presente" 
            End If

ElseIf OptionButton2.Value = True Then
    TextBox6 = MonthView1.Value
    Data = CDate(TextBox6)
    Set zona = Range(Range("U88"), Range("U88").End(xlDown))
        For Each CL In zona
            If CL = Data Then
                TextBox7 = CL.Offset(0, 3).Value
                TextBox8 = CL.Offset(0, 4).Value
                TextBox9 = CL.Offset(0, 5).Value
                TextBox10 = CL.Offset(0, 6).Value
                ComboBox2.AddItem CL.Offset(0, 2).Value
                i = i + 1
            End If
        Next
            If i > 0 Then
                MsgBox "La data è presente"
            Else
                MsgBox "Questa data non è presente" 
            End If
End If
End Sub

il tutto lo devo ripetere per altri 5 option click. Posso in qualche modo risicare il codice??
Grazie per l'auito