VBA: Sheets.Count Property

Utilização de Sheets.Count Property, para obter o número de Sheets contidas num Workbook, no exemplo, para apagar determinados Ranges iguais nas diversas Sheets:

Sub Apaga_Tudo()

Dim j As Integer, k As Integer
j = Sheets.Count

For k = 1 To j
With Sheets(k)
.Range(“T1”).ClearContents
.Range(“X2:Y2”).ClearContents
.Range(“c4:f34”).ClearContents
.Range(“j4:j34”).ClearContents
.Range(“m4:o34”).ClearContents
.Range(“q4:r34”).ClearContents
End With
Next k

End Sub