Vba open workbook and paste from another workbook

[rohan8510]

hi can you please help me with this code keep getting the error "object variable or with variable not set"

many thanks




test()

Dim fname As String
Dim fpath As String
Dim owb As Workbook


fname = "DummyXXAC.xlsm"
fpath = "C:\Users\USER\Desktop"
owb = Application.Workbooks.Open(fpath & "\" & fname)

Windows("CNAV.xlsm").Activate
Set rngcopy = Sheets("Raw data").Range("A1:IV1").Find("Ccy", LookIn:=xlValues)
Set rngcopy = Range(rngcopy.Offset(1, 0), Cells(Rows.Count, rngcopy.Column).End(xlUp))
Set rngPaste = Workbooks(DummyXXAC.xlsm).Sheets("Sheet1").Range("d2")
rngcopy.Copy
rngPaste.PasteSpecial xlPasteValues
rngPaste.PasteSpecial xlPasteFormats

[Bob Phillips]

Cross-posted at Excel Guru http://www.excelguru.ca/forums/showthread.php?4132-Vba-open-workbook-and-paste-from-another-workbook