Hi
I have a macro which adds subtotals to a sheet. The routine for adding and then removing the subtotals are shown below. Both are activated by buttons on the sheet. What I would like to do is apply the ROUNDUP worksheet function (to zero decimal places) to the subtotals within the macro. Can anyone steer me in the right direction?
Thanks in advance for the help. Here is the code.

'Add subtotals to the sheet
Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Sheets("WALL TAKEOFF").Unprotect ("geekk")
Range("A4:DB403").Select
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(56, 58, 59 _
, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, _
86, 87, 88, 89, 98, 99, 100, 101, 102, 103, 104, 105), Replace:=False, PageBreaks:= _
False, SummaryBelowData:=True

ActiveSheet.Outline.ShowLevels RowLevels:=2
Sheets("WALL TAKEOFF").Protect ("geekk"), DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Application.ScreenUpdating = True
End Sub

'Removes Subtotals
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Sheets("WALL TAKEOFF").Unprotect ("geekk")
'This line takes you back to full display of all rows.
ActiveSheet.Outline.ShowLevels RowLevels:=3
'This line ensures that selection within the subtotal range is selected.
Range("B5").Select
Selection.RemoveSubtotal
Sheets("WALL TAKEOFF").Protect ("geekk"), DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Application.ScreenUpdating = True
End Sub