Grouping Question

[rockatubc]

Hi,

How can I sum a column up that changes according to what I group and what I do not group?

Thanks

 

[rockatubc]

How would I change the above module if I wanted to sum it up horizontally....thank you for you patience...i'm still trying to learn

 

[SydneyGeek]

I made a small change to the code so it works horizontally too. New code:

Function SUBTOTAL_VIS(Target)
   Dim X As Double
   Dim c As Range
   Application.Volatile
   X = 0
   For Each c In Target
      If c.RowHeight = 0 Or c.ColumnWidth = 0 Then
         X = X
      Else
         X = X + c.Value
      End If
   Next c
   SUBTOTAL_VIS = X
End Function

This is the row with the change:
If c.RowHeight = 0 Or c.ColumnWidth = 0 Then (was If c.RowHeight = 0 Then)

To change, copy ALL the code and paste it over the original version.

Denis