excel vba runtime error 1004 "this action won't work on multiple selections"

Hmm, so ... where is it ? This routine ...

What is before "Set mFSO = New FileSystemObject" ?
What is after "Application.DisplayAlerts = True" ?
Each procedure/routine/Subroutine/etc. (in vba) begins with "Sub name_of_procedur ()" and ends with "End Sub".

Hello All,

I have had this error ("runtime error 1004 "this action won't work on multiple selections") when copying a range of cells from source data spreadsheets into a master report spreadsheet.
It's very frustrating as the solution does not seem to be obvious to me. The files are contained in a "sharepoint" environment and I'm using office 365.

What worked for me was to use range1.value2=range2.value2 instead of "cells(1,1).pastespecial paste:=xlpastevalues" which caused the error message, "runtime error 1004 "this action won't work on multiple selections".

I set the copy range as a range in the source spreadsheet and set a same size range on the destination spreadsheet.

LastRow = WS9.Cells(Rows.Count, 8).End(xlUp).Row 'defined the bottom row of the range which started at row 28
Set myRange = Range(WS9.Cells(28, 2), WS9.Cells(LastRow, 19)) 'WS9 was (Set WS9 = myWB.Sheets("Resource_Profile")) my source data spreadsheet

PasteRow = RES.Cells(Rows.Count, 8).End(xlUp).Row 'RES was the destination spreadsheet
Set oRange = RES.Cells(PasteRow + 1, 2).Resize(LastRow - 27, 18)'the destination range
oRange.Value2 = myRange.Value2

this approach solved the problem for me.

Regards, Martin.

Don't know if this applies to a SharePoint folder, but if it's like a OneDrive folder, you may need to replace the "internet address" portion of the SharePoint folder location with the local path.