Public Function Flowupdate(sheetName As String) As Long
    On Error GoTo errHandler
    Dim startTime As Double
    Dim secondsElapsed As Double
.....