Hi, after searching the forum, I found what I thought I needed but I can't seem to make it work
I have a check box linked to cell A1 which when checked or unchecked returns the TRUE or FALSE statement OK but it doesn't then carry out the commands.
Any help would be appreciated
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1").Value = True Then
Range("E6").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(7, 11, 15, _
19, 23, 24, 28, 32, 36, 40, 44, 45, 49, 53, 57, 61, 65, 66, 70, 74, 78, 82, 86, 87, 91, 95, 99, 103, 107 _
, 108, 109), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Else
Range("A6").Select
Selection.RemoveSubtotal
End If
End Sub