Hello. My name is***** will be providing an answer to your question today
Thank you very much for giving us an opportunity to help you. You will get this error if the Active worksheet is password ***** Or you can upload the macro for me to have a look at .Waiting your feedback
Please, Rate if you are SATISFIED with my help, as this is the only way the site will give me credit for my time. If you still need help, ASK FOR MORE HELP by replying to me.
Thanks let me have a look
Can you please confirm the file name the error show on the file name
ile = Dir(d)While (file <> "") If file <> ThisWorkbook.Name Then Set nwks = nwks.Workbooks.Open(file) Set nwks = nwbk.Worksheets(1) lrn = nwks.Cells(Rows.Count, "A").End(xlUp).Row lra = awks.Cells(Rows.Count, "A").End(xlUp).Rownwbk If (lra + lrn) >(###) ###-####Then awks.Range("A1:P1").Copy
Thanks let me have a look at it
Pleasure take care please rate the service.