Hello,
In addition to what I've written before, here is the code I wrote:
Sub Dataacquire()
Workbooks.Open "data.xls"
Worksheets("sheet1").Range("b1:d19").Copy _
ThisWorkbook.Worksheets("sheet1").Range("b1:d19")
ActiveWorkbook.Close SaveChanges:=False
End Sub
My problem that empty cells are not copied as empty and
because of this I get an error messages in other worksheets (like #VALUE).
How Can I solve this problem ?
Thank you
David Cohen
Bookmarks