Hi all

I am tracking invoice info. ("GES Invoice11.xls", sheet "GES") to a separate workbook ("Invoice Log.xls", sheet "Sheet1"). BTW, thanks for the code, Bob Phillips and RPIJG

I am getting the following error

Run-time error €˜438
Object doesnt support this property or method

Following is the macro

Sub InvoiceDataTransfer(
Dim iLastRow As Lon
Dim an
ans = MsgBox("Are you sure? Doing so will automatically create a new invoice entry.", vbYesNo
If ans = vbYes The
Workbooks.Open Filename:="C:\data\ges\accounting\invoice log.xls
With ActiveWorkboo
With .Worksheets("Sheet1"
iLastRow = .Cells(Rows.Count, "A").End(xlUp).Row +
..Range("A" & iLastRow).Value = .Worksheets("GES").Range("C7").Valu
..Range("B" & iLastRow).Value = .Worksheets("GES").Range("C4").Valu
..Range("C" & iLastRow).Value = .Worksheets("GES").Range("A10").Valu
..Range("D" & iLastRow).Value = .Worksheets("GES").Range("A12").Valu
..Range("E" & iLastRow).Value = .Worksheets("GES").Range("A13").Valu
..Range("F" & iLastRow).Value = .Worksheets("GES").Range("C35").Valu
..Range("G" & iLastRow).Value = .Worksheets("GES").Range("F17").Valu
..Range("H" & iLastRow).Value = .Worksheets("GES").Range("F18").Valu
..Range("I" & iLastRow).Value = .Worksheets("GES").Range("F19").Valu
End Wit
End Wit
End I
End Su

Any ideas

Thanks in advance for your input

Try Removing .. at the start of each line of code

As you are dealing with 2 workbooks you will also need to ad
Workbooks("("GES Invoice11.xls") after the = sign


..Range("A" & iLastRow).Value = .Worksheets("GES").Range("C7").Valu

--
Message posted from http://www.ExcelForum.com

Thanks for your time, Mudraker

It works well now.