ブックの共有でVBAエラー

下記のマクロでブックの共有をすると
RANGEクラスの・・・とエラーが出ます。
ブックの共有をしてもエラーの出ないマクロはありませんか？

Sub 上へ()
Dim rng As Range
Dim col As Long, rw As Long

If Intersect(Range("T4:X53"), Selection) Is Nothing Then Exit Sub

col = Selection.Column
rw = Selection.Row

Set rng = Range(Cells(rw, "T"), Cells(rw, "X"))
rng.Cut
rng.Offset(-1).Insert Shift:=xlDown
Cells(rw - 1, col).Select

Set rng = Nothing

End Sub




Sub 下へ()
Dim rng As Range
Dim col As Long, rw As Long

If Intersect(Range("T8:X53"), Selection) Is Nothing Then Exit Sub

col = Selection.Column
rw = Selection.Row

Set rng = Range(Cells(rw, "T"), Cells(rw, "X"))
rng.Cut
rng.Offset(2).Insert Shift:=xlDown
Cells(rw + 1, col).Select

Set rng = Nothing

End Sub

No.1 回答者： ママチャリ 回答日時： 2021/07/01 22:32

共有ブックで使用できない機能として「セル範囲の挿入または削除」っていうのがあります。

それに引っかかってますよね？
ちなみに、この操作って、手動でも出来ないでしょ！！
行全体の挿入はできるみたいなので、その方向で書き換えてみてはいかがでしょうか。