Hi,

I am having trouble with my code. Basically, when I try to launch
this I get an error that says "Do Without Loop". I am a beginner in
coding, and have searched high and low to try to figure this one out
with no avail. Can anyone spot my problem? I think it has to do with
Excel VBA not being able to see the first Do statement.

Thanks in advance,
Derrick

Sub OpenFile()

' Opens Each Cash Sheet Once


Windows("report.xls").Activate
Range("A1").Select

Do
ActiveCell.Offset(0, 3).Select

Dim ColDate As String
Dim WorsheetName As String
ColDate = ActiveCell.Offset(0, -2).Value
WorksheetName = ActiveCell.Offset(0, -3).Value
Workbooks.Open Filename:=ThisWorkbook.Path & "\" &
ActiveCell.Value
' Code to preform in each cash sheet below
Dim rngFound As Range
Dim rngLookIn As Range

Set rngLookIn = Range("B6:AC6")

For Each Cell In rngLookIn
If Cell.Value = ColDate Then
Cell.Select
End If

' End Code to preform in each cash sheet Above
ActiveWorkbook.Close True
Do
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value < ActiveCell.Offset(1, 0)

ActiveCell.Offset(1, -3).Select
Loop Until ActiveCell.Value = ""


End Sub