Excel VBA remove subtotals and clear

[Larry D]

I am working on code in vba with Excel 2000 and Microsoft Windows
2000.

I have some code where I want to clear subtotals and
clear the contents from three tabs.

My code looks like this:

sheets("first").select
cells.select
selection.removesubtotal
selection.clearcontents

sheets("second").select
cells.select
selection.removesubtotal
selection.clearcontents
etc. etc.

How do I remove subtotals from all three tabs at the same time,
and how do I combine the lines of code to the least amount
of lines?

[akhilesh]

Try this. [Note:Sheets 1 to 3 should be the desired tabs.]

Dim i As Integer
For i = 1 To 3
With Sheets(i).Cells
.RemoveSubtotal
.ClearContents
End With
Next i