I have altered the statement to

RowCount = RowCount + 1 but am still getting the same error. Sorry I am
rather new to vba and am a little lost.
--
Lindy


"Joel" wrote:

You are going through the loop the 1st time and failing the 2nd time due to
the increment statement of the RowCount

RowCount = 1 = RowCount = 1 + 1


The above line will produce a TRUE or FLASE response which is not a valid
number. When TRUE or False is put into the Range you get

Do While .Range("CUTrue) < " "


which is not a valid cell reference


"Lindy" wrote:

Help pls. Am getting an error 1004 Application defined or Object defined
error. I have looked at the other posts with the same error but I cannot
seem to be able to correct my problem. The Do While line is being flagged as
the problem. Do I need to select the worksheet first? If so what is the
right code for doing that with the ThisWorkbook object

Dim bk2 As Workbook
Set bk2 = Workbooks.Open(Filename:=fileToOpen)

With ThisWorkbook.Sheets("fdbpre")
RowCount = 1

Do While .Range("CU" & RowCount) < " "
MON = .Range("CU" & RowCount)
With bk2.Sheets("Sheet1")
Set c = .Columns("A").Find(what:=MON, LookIn:=xlValues, lookat:=xlWhole)
End With

If Not c Is Nothing Then
.Range("EG" & RowCount) = .Range("CB" & RowCount) * c.Offset(0, 1)
End If

RowCount = 1 = RowCount = 1 + 1
Loop
End With
--
Lindy