Dim elapsedTime(2)
Application.ScreenUpdating = True
For i = 1 To 2
    If i = 2 Then Application.ScreenUpdating = False
    startTime = Time
    Worksheets("Sheet1").Activate
    For Each c In ActiveSheet.Columns
        If c.Column Mod 2 = 0 Then
            c.Hidden = True
        End If
    Next c
    stopTime = Time
    elapsedTime(i) = (stopTime - startTime) * 24 * 60 * 60
Next i
Application.ScreenUpdating = True
MsgBox "Elapsed time, screen updating on: " & elapsedTime(1) & _
        " sec." & Chr(13) & _
        "Elapsed time, screen updating off: " & elapsedTime(2) & _
        " sec."

let elapsedTime = []
Application.ScreenUpdating = true

for(let i = 1; i <= 2; i++){
    if(i == 2){
        Application.ScreenUpdating = false
    }
    
    let startTime = new Date().getTime()

    Worksheets("Sheet1").Activate()

    for(let j = 1; j <= ActiveSheet.Columns.Count){
        if(ActiveSheet.Columns.Item(j).Value2 % 2 == 0){
            ActiveSheet.Columns.Item(j)
        }
    }
}