title: Selecting multiple column headers and then deleting those columns
body: <p><strong><em>PLEASE EXCUSE ANY MISTAKES FOR NOT FOLLOWING PROPER POSTING FORMAT. THIS IS MY FIRST POSTING</em></strong></p>
  
  <p>I have a headings in <code>row 1</code>. I want to select multiple column headings and then delete those columns. I also want the code to not break if a certain heading specified doesn't exist (i.e. if a heading that it is searching for doesn't exist, the loop continues).</p>
  
  <p>I've got code that works to find a specified heading and delete that column. However, I don't want to do this code for each heading to delete (roughly 20 headings). I also don't know how to make it so that it doesn't break if a heading doesn't exist. This will be something that I do on a monthly basis and most likely all the headings will always be the same, but I can't guarantee that. I downloaded a <code>.cs</code>v file and work with that.</p>
  
  <p>The <code>MsgBox</code> in my code is from an example I found online. I don't actually want a message box if it doesn't find a heading. I just want it to skip over a heading it doesn't find and continue searching for the other ones.</p>
  
  <pre><code>Find a column header and delete that column
      Dim rngHeadings As Range
      Set rngHeadings = Range("A1", Range("A1").End(xlToRight)).Find("Category")
          If rngHeadings Is Nothing Then
              MsgBox "Can't find that"
              Exit Sub
          End If
          rngHeadings.EntireColumn.Select
          Selection.Delete
  </code></pre>
  
  <p>So "<code>Category</code>" is one of the headings. Some others are "<code>AirDur</code>", "<code>RefNbr</code>", etc. (I can fill in the rest).</p>