Code Help needed error 1004

[seenfresh]

I have the following piece of a code of which prompts an error 1004 "Unable to get the find property of the range class"

With Worksheets("Adjustments").Range("B1:B" & Rows.Count)

    
      NewRow = .Cells.Find("", .Cells(1, 2), xlFormulas, _
        xlWhole, xlByColumns, xlNext).Row
        
  ' This finds a row starting from top that is empty to put the new values in!!!
        Worksheets("Adjustments").Rows(NewRow & ":" & NewRow).Value = datai
    

  
    End With

I have used this code for other procedures, but for some reason I can't figure out this error...

Can anyone spot anything FISHY

Would appreciated any advice

Thanks in advance,

 

[Richard Schollar]

Hi

Does this work:

With Worksheets("Adjustments").Range("B1:B" & Rows.Count) 

    
      NewRow = .Find("", .Cells(1, 1), xlFormulas, _ 
        xlWhole, xlByColumns, xlNext).Row 
        
  ' This finds a row starting from top that is empty to put the new values in!!! 
        Worksheets("Adjustments").Rows(NewRow & ":" & NewRow).Value = datai 
    

  
    End With

 

[seenfresh]

reply

 NewRow = .Find("", .Cells(1, 1), xlFormulas, _ 
        xlWhole, xlByColumns, xlNext).Row

Thank you for your reply Richard!

I actually just added the Worksheet reference and it worked:

NewRow = Worksheets("Adjustments").Cells.Find....

I'll try your method as well since it is shorter... I'm just a bit curious that the object wasn't already acknowledged from the With statement!

Thanks again!