Sum the visible cell values from the filtered range

Function Sum_Visible_Cells(ByRef Cells_To_Sum As String)

Application.Volatile

Range(Cells_To_Sum).SpecialCells(xlCellTypeVisible).Select
Sum_Visible_Cells = WorksheetFunction.Sum(Selection)

End Function