Returns the total value of the numbers in cells that are visible
For instructions on how to add a function to a workbook refer to the page under Inserting Functions


Public Function SUMVISIBLE(ByVal rgeSearchCells As Range) As Double 
Dim rgeCell As Range
For Each rgeCell In rgeSearchCells
   If ( (rgeCell.Rows.Hidden = False) And (rgeCells.Columns.Hidden = False) ) Then
      SUMVISIBLE = SUMVISIBLE + rgeCell.Value
   End If
Next rgeCell
End Function

© 2022 Better Solutions Limited. All Rights Reserved. © 2022 Better Solutions Limited TopPrevNext