Hide blank columns via loop

Hi All,

I've written below codes for automatically hiding blank columns via loop in the each worksheet of the current workbook, but it's not running well...

Option Explicit
            'In a Module
Sub HideColms()
' To automatically hide blank columns via loop
'
Dim colmRng As Range
Dim ws As Worksheet

    ActiveSheet.Cells.EntireColumn.Hidden = False       ' To unhide the entire columns in the worksheet
    ActiveSheet.Cells.EntireRow.Hidden = False              ' To unhide the entire rows in the worksheet

    Range("E1").EntireColumn.Select
    Range(ActiveCell.EntireColumn, Selection.End(xlToRight)).Select
    Selection.ColumnWidth = 0.5

Set colmRng = ActiveCell.EntireColumn.Offset(0, 1)

    Range("D1").Select
    For Each colmRng In ThisWorkbook.Worksheets
    colmRng.Select
    colmRng.Hidden = True
    Range("D1").Select
    Next

End Sub

Can anyone please help me and correct the codes??