How to Sum the Visible cells data from the filtered range

Here is the solution to sum the visible cells data from the given 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