or... if you want to skip using the clipboard with the copy/paste, I think you can use Paul's code and replace the copy line with this....
HTH, Daver1.Resize(r.Rows.Count, r.Columns.Count).Cells.Value = r.Cells.Value
or... if you want to skip using the clipboard with the copy/paste, I think you can use Paul's code and replace the copy line with this....
HTH, Daver1.Resize(r.Rows.Count, r.Columns.Count).Cells.Value = r.Cells.Value
Posting Permissions
Reply With Quote