Do until loops

I have a loop to update the dates on a spreadsheet. I am doing this using filtering.

The problem is that not all sheets will have info on them everyday. So there will be errors.

I need to do it so that if there is nothing on the filter then the loop gets restarted but not sure how to do it. I have written the if statement in the code but not sure how I finish. Basically

intNoOfRows = rng.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1

If intNoOfRows = Then

I want to move onto the next row and start the loop again - is it possible. If its greater than zero then I need to carry on with the loop and do the other bits.


Here is the code I have for the loop/

Do Until ActiveCell = ""

strSheet = ActiveCell

Set wsFiltering = Worksheets(strSheet)

intLastRow = wsFiltering.Cells(Rows.Count, "b").End(xlUp).Row

Set rngFilter = wsFiltering.Range("a1:a" & intLastRow)

With rngFilter

.AutoFilter Field:=1, Criteria1:="="

End With

Set rng = Worksheets(strSheet).AutoFilter.Range

intNoOfRows = rng.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1

If intNoOfRows > 0 Then


With rngFilter

Set rngDates = .Resize(.Rows.Count - 1, 1).Offset(1, 0).SpecialCells(xlCellTypeVisible)

End With



With rngDates
.Value = dbleDate
.NumberFormat = "dd/mm/yyyy"

If wsFiltering.FilterMode Then
wsFiltering.ShowAllData
End If

ActiveCell.Offset(1, 0).Select

End With



Loop