Option Explicit
Function SumVisible(rR As Range) As Double
Dim rC As Range, dtotal As Double
For Each rC In rR
If Not rC.EntireRow.Hidden And Not rC.EntireColumn.Hidden Then dtotal = dtotal + rC
Next
SumVisible = dtotal
End Function
Hi pgc01
Spot on! I only noticed it a few months ago and wondered why I'd never found it before.
And now I know why...
DominicB