Need help with If-Then-ElseIf in VBA

[bronco]

Pretty new to VBA and I'm trying to clean up the following code so that if the value of cell C964 = 0, then simply hide all the rows in the given range and stop there. Currently, it hides all of the rows and then takes another 30 seconds performing the second If function. I'm hoping you VBA vets can help me out! Thanks!

Sub HideUnusedRowsRS()
Dim cell As Range
For Each cell In Range("B4:B964")
If Range("C964") = 0 Then
Rows("4:964").Hidden = True
ElseIf cell.Value = "" Then
cell.EntireRow.Hidden = True
End If
Next
End Sub

 

[Smitty]

Welcome to the Board!

The problem is that you're looping through each cell to evaluate it, which can take a long time, especially depending on what you're doing with it.

I'd take a look at using AutoFilter instead (which is recordable).

HTH,

 

[bronco]

Thanks Smitty! Bummer... I was hoping to avoid using the autofilter, but that's probably the best option here.
Thanks for your quick advice!

 

[Smitty]

Glad I could help,

I was hoping to avoid using the autofilter, but that's probably the best option here.

Almost anytime you can do something natively as opposed to VBA (even calling upon intrinsic functionality from VBA) you'll be better off.