hi can you please help me with this code keep getting the error "object variable or with variable not set"
many thanks
Sub
many thanks
Code:
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