|
お世話になります。
個人用マクロブックに作成したマクロで、アクティブファイルの全シートを確認し、データの無いシートを削除する処理をしたいと思います。(シートにデータがある場合は、セルA1に移動)
色々なHPを参照し、次のように作成してみましたが、最後の方のシート削除でエラーがでます。原因はシートを削除したことでシート数が変わるためだと思うのですが、どうしたらうまく動くでしょうか?
また、今はセル"H8"だけをみていますが、"シートの中"に、何も(オブジェクトも)ないときシートを削除するにはどうしたらよいでしょうか?
よろしくお願いします。
Sub データ作成()
For i = 1 To ActiveWorkbook.Worksheets.Count
With Worksheets(i)
If .Range("h8").Value <> "" Then
Application.Goto Reference:=Range("A1"), Scroll:=True
Else
Application.DisplayAlerts = False
Worksheets(i).Delete
Application.DisplayAlerts = True
End If
End With
Next
End Sub
|
|