VBA ”インデックスが有効範囲にありません”をスキップしたい

Question

##　数百枚あるシートの中から、複数のシートを新しいブックに移動させたいです。

その時に、”移動したいシートが移動元ブックにない場合は、スキップして次のシート移動に進む”
ということは可能でしょうか。

ネット検索に限界を感じましたのでこちらで質問をさせてください。

Sub シート移動()
    
    Call Sheets(Array("1", "2", "3", "4")).Move
    
End Sub

たとえば上記のようなコードで、移動元に　シート”3”　がなかった場合は
エラー表示せずに　シート”4”　の移動に進む、というような。

初歩的な質問とは存じますが、お力添えくださいますようお願いいたします。

Answer 1

こんな感じでどうでしょうか。

Sub シート移動()
    Dim ss As Sheets
    Set ss = SheetsArray("1", "2", "3", "4")
    If Not ss Is Nothing Then ss.Move
End Sub

Function SheetsArray(ParamArray sName()) As Sheets
    Dim d1, d2, ws, s
    Set d1 = CreateObject("Scripting.Dictionary")
    Set d2 = CreateObject("Scripting.Dictionary")
    For Each ws In ThisWorkbook.Sheets
        d1.Add ws.Name, ws
    Next
    For Each s In sName
        If d1.Exists(s) Then d2.Add s, s
    Next
    If d2.Count > 1 Then Set SheetsArray = Sheets(d2.Keys)
End Function

Answer 2

事前に対象のワークシートが存在するかチェックするしかないかと。
以下ご参考まで。

https://www.tipsfound.com/vba/10009

そして、存在するワークシート名を配列に入れて、Arrayの部分と置き換えればよろしいかと

Comments

[ikapy]

自己責任で（そして質問者さんがVBAに詳しく）質問者さんが結果に対して全ての責任を負う覚悟があるなら、「On Error GoTo 0」という怖い文で対応する方法があります。けれども、hex309さんの方法がおすすめです。