I am sure there are better ways, but if not then you can try this UDF:

Function SumVisible(mySelection As Range)
Application.Volatile
For Each c In mySelection
If c.Rows(c.Row).Hidden = False And _
IsNumeric(c) Then mySum = mySum + c.Value
Next c
SumVisible = mySum
End Function

Regards,
KL

"Todd" wrote in message
...
I have a worksheet with many hidden columns. The columns I hide keep
changing. Is there a way to have column totals adjust to sum only the
columns showing?

TIA

Todd