Sub main()
RemoveSubtotals range(”1:900″)
End Sub
Sub RemoveSubtotals(rng As range)
On Errror GoTo oops
With rng
.Font.Bold = False
.RemoveSubtotal
End With
oops:
On Error GoTo 0
End Sub
Filed under: Subtotals
Trackback Uri