|
▼初心者 さん:
> シートの1〜10までは削除せず、それらを除いた残りのシートを選択して
> 削除するにはどういう風にかけばいいのでしょうか。
こんにちは。
シート名 1〜10以外は全部削除します。
注意して下さい。
Sub SheetDelete()
Dim sht() As String
Dim i As Long
Dim j As Long
For i = 1 To Worksheets.Count
If Not (StrConv(Worksheets(i).Name, vbNarrow) >= 1 _
And StrConv(Worksheets(i).Name, vbNarrow) <= 10) Then
ReDim Preserve sht(j)
sht(j) = Worksheets(i).Name
j = j + 1
End If
Next
Application.DisplayAlerts = False
If Sgn(sht) > 0 Then
Worksheets(sht).Delete
End If
Application.DisplayAlerts = True
End Sub
|
|