返信ありがとうございます。
システム担当者に確認するとセキュリティ上
OneDrive、SharePoint共に、ブラウザ上からのアクセスしか認められておらず
C:\Iser\○○\OneDrive のような方法が出来ないそうです。
ですので、
・ファイルのあるフォルダを特定・・・・OK
・ファイル名を決め打ち・・・これでやるしかないか・・・・
テストして以下で動作確認できました。
Dim WbB As Workbook
Dim folderPath As String
Dim FolderFile As Variant
folderPath = xlsApp.ThisWorkbook.path '自身のフォルダパス格納
FolderFile = Range(sh_マスタ.Cells(2, 17), sh_マスタ.Cells(10, 17)) '対象ファイル名
Dim itm As Variant
'データ取込
For Each itm In FolderFile
xlsApp.StatusBar = "[処理中...] " & itm
'転記元ブックを開く(Book内の外部参照停止,読み取りで開く,読み取りアラート)
Set WbB = xlsApp.Workbooks.Open(fileName:=folderPath & "\" & itm & ".xlsm", _
UpdateLinks:=False, ReadOnly:=True, _
Ignorereadonlyrecommended:=True)
Stop
WbB.Close SaveChanges:=False
Next itm