If columns are not specific ones then hide them

  • Try this

    1. Dim colls As Range
    2. 'A, D, M, CX
    3. Set colls = Range("A1,D1,M1,CX1").EntireColumn
    4. Cells.Columns.EntireColumn.Hidden = True
    5. colls.Hidden = False
  • Assuming you have headers in row 1, try:

    You can say "THANK YOU" for help received by clicking the :thumbup: icon in the bottom right corner of the helper's post.
    Practice makes perfect. I am very far from perfect so I'm still practising.