Question

I have a bunch of workbooks with specific strings in the first row. So, for example I, say I have “Dog”, “Cat”, “Squirrel”, and “Fish” in rows A – D. I would like to have a macro that searches for the values ‘Dog’ and ‘Squirrel’, and hide the columns, and then subsequently set the width of “Cat” and “Fish” to a value of 11.

I cannot just use column numbers because they are not consistent across all my workbooks. Thanks for your help.

Sub HideColumn1()
If Range("B4").Value = 0 Then
    Columns("H").EntireColumn.Hidden = True
Else
    Columns("H").EntireColumn.Hidden = False
End If
End Sub

Answer 1

Change Range(“A1:D1”) to your desired range or something more dynamic:

Dim cell As Range
Dim hiddenRng As Range, widthRng As Range

For Each cell In Range("A1:D1")

    If cell = "Dog" Or cell = "Squirrel" Then

        If (hiddenRng Is Nothing) Then
            Set hiddenRng = cell
        Else
            Set hiddenRng = Union(hiddenRng, cell)
        End If

    End If

    If cell = "Cat" Or cell = "Fish" Then

        If (widthRng Is Nothing) Then
            Set widthRng = cell
        Else
            Set widthRng = Union(widthRng, cell)
        End If

    End If

Next cell

If (Not hiddenRng Is Nothing) Then hiddenRng.EntireColumn.Hidden = True
If (Not widthRng Is Nothing) Then widthRng.EntireColumn.ColumnWidth = 11