Sumvisible VBA to keep re-calculating

[kjsmercier]

HI all: I have a sheet where the columns are visible based on a cell count (that is manually typed in see cell CT1 and 2). I would like the total row (DO5) to update off of visible columns but also recalculate every time I change the number. I am using this VBA Thank you!:
Function SUMVisible(Rg As Range)
Dim xCell As Range
Dim xCount As Integer
Dim xTtl As Double

Application.Volatile
Set Rg = Intersect(Rg.Parent.UsedRange, Rg)

For Each xCell In Rg
If xCell.ColumnWidth > 0 _
And xCell.RowHeight > 0 _
And Not IsEmpty(xCell) _
And IsNumeric(xCell.Value) Then
xTtl = xTtl + xCell.Value
xCount = xCount + 1
End If
Next
If xCount > 0 Then
SUMVisible = xTtl
Else
SUMVisible = 0
End If
End Function

 

[rakesh seebaruth]

Sub SUMVisible()
Dim lngRow As Long, lngCol As Long
Dim rngRange As Range

Set rngRange = Range("A1:D20") 'Set your range here

For lngRow = 1 To rngRange.Rows.Count
For lngCol = 1 To rngRange.Columns.Count
If rngRange.Columns(lngCol).EntireColumn.Hidden = FALSE Then
Cells(lngRow, 5).Value = Cells(lngRow, 5).Value + Cells(lngRow, lngCol).Value
End If
Next
Next
End Sub

 

[kjsmercier]

Sub SUMVisible()
Dim lngRow As Long, lngCol As Long
Dim rngRange As Range

Set rngRange = Range("A1:D20") 'Set your range here

For lngRow = 1 To rngRange.Rows.Count
For lngCol = 1 To rngRange.Columns.Count
If rngRange.Columns(lngCol).EntireColumn.Hidden = FALSE Then
Cells(lngRow, 5).Value = Cells(lngRow, 5).Value + Cells(lngRow, lngCol).Value
End If
Next
Next
End Sub

Is this in replacement or in addition to?