Having trouble hiding activecell column across tabs using vba

Question

The activecell column across the first four tabs has to be hidden. It appears that the vba below is not functioning. Only the activecell on the first tab of the activesheet is hidden. In essence, I choose to focus the first four tabs, choose cell A1, and then use the code below:

ActiveCell.EntireColumn.Hidden = True

This only conceals Column A on Tab 1, not in Tabs 2, 3, or 4. Could someone kindly assist in getting the right code? As a reminder, it must be the selected cell and not the Range ("A1"). EntireColumn. Because I'm trying to hide a cell using an offset function, cell can be any active cell, hence Hidden = True. We appreciate any assistance.

Answer 1

You might keep track of the location of the active cell, cycle over each worksheet, and base your column hiding on that location.

Sub tested()

    Dim cell_address As String
    Dim wsName, ws, c As Range
    
    cell_address = ActiveCell.Address
    
    wsName = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")
    
    For Each ws In wsName
        Sheets(ws).Range(cell_address).EntireColumn.Hidden = True
    Next

End Sub