Unable to set columns hidden

I am not sure that this is the right place although my spreadsheet is run with VBA, but I have a spreadsheet that I routinely have columns P through XFD hidden since they are outside scope of my worksheet. For some reason, I found that I can no longer set the entire range hidden. After troubleshooting, I found I could hide columns P through T and columns AA through XFD. Columns U,V,W,X,Y,Z will not allow me to hide them. I have selected them at the top of the columns and pressed the Delete key, but still unable to hide them. Changed the format on those columns to General, selected again and pressed the Delete key, but still unable to hide them.

Does anyone have any idea what may be happening, or a routine that can run from top to bottom of these columns to ensure everything is cleared?

Any help or suggestions would be greatly appreciated.

Thank you

Thank you but I tried this, and it does not work. I have found that I can manually select columns and then right click to get the column menu and then select high and it works. However, if I try to select all columns to the end I get the following error: "Can't push objects off the sheet"?

Are you able to post the workbook?

Hi dentler,
first of all make a copy of the file.
I am attaching a macro that will search for objects. Both hidden and miniature ...
If it finds something, it will prompt you to confirm the deletion of the object.

Sub show_all()
  Dim a, b, c, d, left_obj, left_col, top_obj, top_row
  a = 1
  While a > Empty
    b = 0
    On Error GoTo ch1
    ActiveSheet.Shapes(a).Visible = True
    On Error GoTo 0
    If b = 0 Then
      left_obj = ActiveSheet.Shapes(a).Left
      left_col = 0
      c = 1
      While left_col < left_obj
        left_col = Columns(c).Left
        c = c + 1
      Wend
      top_obj = ActiveSheet.Shapes(a).Top
      top_row = 0
      d = 1
      While top_row < top_obj
        top_row = Rows(d).Top
        d = d + 1
      Wend
      On Error GoTo ch2
      If ActiveSheet.Shapes(a).Height < 5 Then
        ActiveSheet.Shapes(a).Top = ActiveSheet.Shapes(a).Top - 20 + ActiveSheet.Shapes(a).Height
        ActiveSheet.Shapes(a).Height = 20
      End If
      If ActiveSheet.Shapes(a).Width < 5 Then
        ActiveSheet.Shapes(a).Left = ActiveSheet.Shapes(a).Left - 20 + ActiveSheet.Shapes(a).Width
        ActiveSheet.Shapes(a).Width = 20
      End If
      Cells(d + 2, c - 2).Select
      Cells(d - 2, c - 2).Select
      Cells(d - 1, c - 2).Select
      Cells(d - 1, c - 2).Interior.Color = 65535
      On Error GoTo 0
      challenge = "Delete object?    " & ActiveSheet.Shapes(a).Name
      challenge = MsgBox(challenge, 4096 + 4, "Object search")
      If challenge = 6 Then
        ActiveSheet.Shapes(a).Delete
        a = a - 1
      End If
      Cells(d - 1, c - 2).Interior.Pattern = xlNone
    Else
      MsgBox "end"
      Exit Sub
    End If
    a = a + 1
  Wend
  Exit Sub
ch1:
  b = 1
  Resume Next
ch2:
  Resume Next
End Sub

m.s.

Thank You. I will give it a try.