Error-Object variable or with block variable not set!!

[oicit]

Hi, I'm new to VB..
Currently I want to do a test and program as the following..But nomatter how hard I try I always end up with this error message-object variable or with block variable not se...............I'm really exhausted for that.....

Pls help me!!

Sub test()
Worksheets("Testing page").Activate
Dim counter1 As Integer, counter2 As Integer, counter4 As Integer, counter5 As Integer, hang As Integer, lie As Integer
Dim c As Range, d As Range
Dim cellstring1 As String, cellstring2 As String
counter4 = 9
For counter1 = 1 To 228

For counter2 = 1 To 30
counter4 = counter2 + counter4
If Worksheets("Testing page").Cells(counter4, 3) = "" Then

Exit For
End If
cellstring1 = Worksheets("Testing page").Cells(counter4, 3)
With Worksheets("Testing page").Range("F10:F20")
Set c = .Find(cellstring1, LookIn:=xlValues)
End With
hang = c.Row
For counter5 = 1 To 5
If Worksheets("Testing page").Cells(hang, 8) = Worksheets("Testing page").Cells(counter4, 1) Then
cellstring2 = Worksheets("Testing page").Cells(hang, 6)
With Worksheets("Testing page").Range("J1:o1")
Set d = .Find(cellstring2, LookIn:=xlValues)
End With
lie = d.Column
Worksheets("Testing page").Cells(counter4, lie) = "*"
End If
hang = hang + 1
If Worksheets("Testing page").Cells(hang, 8) = "" Then
Exit For
End If
Next counter5
Next counter2

counter2 = counter4
Next counter1

End Sub

[Taftheman]

Hi, I'm new to VB..
Currently I want to do a test and program as the following..But nomatter how hard I try I always end up with this error message-object variable or with block variable not se...............I'm really exhausted for that.....

Pls help me!!

Sub test()
Worksheets("Testing page").Activate
Dim counter1 As Integer, counter2 As Integer, counter4 As Integer, counter5 As Integer, hang As Integer, lie As Integer
Dim c As Range, d As Range
Dim cellstring1 As String, cellstring2 As String
counter4 = 9
For counter1 = 1 To 228

For counter2 = 1 To 30
counter4 = counter2 + counter4
If Worksheets("Testing page").Cells(counter4, 3) = "" Then

Exit For
End If
cellstring1 = Worksheets("Testing page").Cells(counter4, 3)
With Worksheets("Testing page").Range("F10:F20")
Set c = .Find(cellstring1, LookIn:=xlValues)
End With
hang = c.Row
For counter5 = 1 To 5
If Worksheets("Testing page").Cells(hang, 8) = Worksheets("Testing page").Cells(counter4, 1) Then
cellstring2 = Worksheets("Testing page").Cells(hang, 6)
With Worksheets("Testing page").Range("J1:o1")
Set d = .Find(cellstring2, LookIn:=xlValues)
End With
lie = d.Column
Worksheets("Testing page").Cells(counter4, lie) = "*"
End If
hang = hang + 1
If Worksheets("Testing page").Cells(hang, 8) = "" Then
Exit For
End If
Next counter5
Next counter2

counter2 = counter4
Next counter1

End Sub

Hi, i think you need to explain more like what is worksheet and what properties is in it. However this usally means two things
1. you havn't declared a variable, or there are two variable with the same name
2. you have intanciated a new class, or set it.

Example
with a recordset

Dim rs1 as adodb.recordset

Set rs1 = new recordset

you have possibly missed this out or set an object

Set datacombo.boundcoulom