Min / Max af kolonner der ikke er "hidden"

Hej

Jeg har brug for hjælp til at finde minimum og maksimum af en mængde data. JEg skal kun inkludere de kolonner der ikke er skjulte. Ved almindelig =min( inkluderes også de skjulte.

Jeg har rodet lidt med =subtotal( , men den virker øjensynligt kun til unhidden rækker (underligt nok)

Nu har jeg så fremstillet følgende vba funktion (for minimum), men heller ikke den virker:
Værdien af minimum burde skifte alt efter hvilke kolonner der er synlige.

Function Min_Visible_Cells(range)
    Application.Volatile
    For Each cell In range
        If cell.Rows.Hidden = False Then
            If cell.Columns.Hidden = False Then
                Min = Application.WorksheetFunction.Min(range)
            End If
        End If
    Next
    Min_Visible_Cells = Min
End Function


Jeg har hentet MEGET inspiration fra denne kode:
http://support.microsoft.com/kb/150363

Function Sum_Visible_Cells(Cells_To_Sum As Object)
      Application.Volatile
      For Each cell In Cells_To_Sum
          If cell.Rows.Hidden = False Then
              If cell.Columns.Hidden = False Then
                  Total = Total + cell.Value
              End If
          End If
      Next
      Sum_Visible_Cells = Total
End Function

På forhånd tak
Jonas