ExcelBanter - Round subtotals to two decimal places

I have a macro that is in part from a recorded macro and part from on of
these posts. It doesn't quite do what it needs to. For some reason, some of
my subtotals need to be formulated as: =round(subtotal(9,A1:A2),2) in order
to get the formating correct. I use the accounting method so that zero
totals will be a dash instead of a 0. Can someone please tell me how to
alter my subtotal formula?

Code:

Sub Subtotals()



'Create subtotals

   Range("A2").Select

   Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(6, 7), 

Replace:=True, PageBreaks:=False, SummaryBelowData:=True





'Round off the subtotals so that zeros will be in accounting format



Dim myC As Range

For Each myC In Cells.SpecialCells(xlCellTypeFormulas, 23)

If InStr(1, myC.Formula, "SUBTOTAL")  0 Then

myC.Font.Bold = True

myC.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"



End If

Next myC

End Sub

thanks
marcia