title: Do Until loop need to restart on error
body: <p>I have a Do Until loop in VBA.</p>
  
  <p>My problem is that there is likely to be an error most days when running the macro as not all the sheets will have info on them.</p>
  
  <p>When that happens I just want to start the loop again.  I am assuming its not the "On Error Resume Next" I was thinking of counting the rows on the autofilter and then if it was 1 (ie only titles) starting the loop again.  Just not sure how to do that.</p>
  
  <p>Dim rngDates As Range 'range where date is pasted on.
  'Dim strDate As String
  Dim intNoOfRows As Integer
  Dim rng As Range</p>
  
  <pre><code>Sub Dates()
  
  Application.ScreenUpdating = False
  
  
  Set rngWorksheetNames = Worksheets("info sheet").Range("a1")
  
  
  dbleDate = Worksheets("front sheet").Range("f13")
  
  
  Worksheets("info sheet").Activate
  Range("a1").Activate
  
  Do Until ActiveCell = ""
  
  strSheet = ActiveCell
  
  Set wsFiltering = Worksheets(strSheet)
  
  intLastRow = wsFiltering.Cells(Rows.Count, "b").End(xlUp).Row
  
  Set rngFilter = wsFiltering.Range("a1:a" &amp; intLastRow)
  
  With rngFilter
  
  .AutoFilter Field:=1, Criteria1:="="
  
  On Error Resume Next
  
  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
  
  Application.ScreenUpdating = True
  
  Worksheets("front sheet").Select
  
  MsgBox ("Dates updated")
  
  Loop
  </code></pre>