Macro Run Time Error 91

[erock24]

I was supplied this code as an answer to a post at:
http://www.ozgrid.com/forum/showthread.php?t=73583

Sub asdf() 
    Dim c As  Range 
    Dim x As Long 
    Dim y As Integer 
     
    Set c = Columns("A:B"). Find(" Total", lookat:=xlWhole) 
    x = c.Row 
    For y = 15 To 4  Step -1 
        If Cells(x, y) = 0 Then Columns(y).Delete 
    Next y 
End Sub

However, it errors out at

x = c.Row

Saying "object variable or With block variable not set"
I have xl2000. Could this be the problem?

With the code I'm trying to locate my "Total" row. Then delete all columns from D:O with a value of zero. An example sheet is supplied at the link.
Thank you very much for your time and help.

 

[erock24]

Are you sure all you added to your code was End If?

Norie,
It's not my code. Its Brian's code. He accidentally missed an End If part.
All I had to do was add that and his code worked real awesome like. I wasn't sure why because as you pointed out it wasn't much different. He explained why, but since I'm just a rookie at vba, and I'm sure it's obvious because I need lots of help, I don't know if I follow his explanation. But it works.

 

[erock24]

It was suggested to me that this be separate thread.
So, I posted it at:
http://www.excelforum.com/showthread.php?p=1808000#post1808000

I will supply any answers I receive.

Thank you.

 

[brian.wethington]

Untested but should work in theory

Sub asdf() 
Dim C as Range, x as Long, y as Long 

Set C = Columns("A:B").Find("Total", lookat:=xlWhole) 
If Not C is Nothing then 
    x = C.Row 
    For y = 15 To 4 Step -1 
        If Cells(7, y) > Format(Now(), "mm") And Cells(x, y) = 0 Then Columns(y).Delete
    Next y 
End if 

End Sub

 

[brian.wethington]

Just now went and looked at the other post and realized there is a very similar post there.

Sub asdf() 
Dim C as Range, x as Long, y as Long 

Set C = Columns("A:B").Find("Total", lookat:=xlWhole) 
If Not C is Nothing then 
    x = C.Row 
    For y = 15 To 4 Step -1 
        If Cells(7, y) > Format(Now(), "mm") Then
            If Cells(x, y) = 0 Then Columns(y).Delete
        End If
    Next y 
End if 

End Sub

He just chose to break out the if statements.

 

[erock24]

THank you for your reply and for checking the other forum.
The code however, errors out with a compile error saying wrong number of arguments or invalid property assignment. It highlights the word "Format".