Excel 指定順にシートの並び替え VBA

質問

http://okwave.jp/qa/q8383406.html

上記の続きになります。

Sub macro()
Dim A As Variant, I As Integer
A = Array("更新履歴", "統計", "全データ", "商品金額", "販売台数", "販売累計")
For I = 0 To UBound(A)
Worksheets(A(I)).Move after:=Worksheets(Worksheets.Count)
Next I
End Sub

このようにシートを並び替えているのですが、
この中で”統計”シートが無かった場合、
更新履歴　全データ　商品金額　販売台数　販売累計
と並び替える方法はありますか？

配列に入っているシート名があったら、並び替える。
（無かったらそこは飛ばす）

そういう方法はないのでしょうか？
回答よろしくお願い致します！

回答No.1

keithin · ベストアンサー

Sub macro()
Dim A As Variant, I As Integer
A = Array("更新履歴", "統計", "全データ", "商品金額", "販売台数", "販売累計")
on error resume next
For I = 0 To UBound(A)
Worksheets(A(I)).Move after:=Worksheets(Worksheets.Count)
Next I
End Sub

でいいです。

お礼

回答ありがとうございます！
エラーを回避する方法がありましたか＾＾
if文で回避するとかしか考えてませんでした；

とても勉強になりました！
ありがとうございました！