title: Delete multiple columns from Multiple sheets
body: <p>I am trying to delete Multiple columns from Multiple sheets while retaining those found in a list.</p>
  
  <p>For example I have <code>sheet1</code>, <code>sheet2</code>, <code>sheet3</code>, ..., <code>sheet7</code>.
  From these sheets I have particular columns to be keep like.</p>
  
  <p>From <code>sheet1</code> I want keep columns like <code>s.no</code>, <code>cust.name</code>, <code>product</code>, <code>date</code> remaining all should be deleted same from <code>sheet2</code> I want to keep <code>prod.disc,address</code>, <code>pin</code> remaining all should be deleted like I have remaining sheets in that I want to keep particular columns remaining all should be deleted.
  I am trying to do using arrays but not able start how to do. I have basic syntax.</p>
  
  <pre><code>Sub sbVBS_To_Delete_Specific_Multiple_Columns()
  Sheets("Sheet1").Range("A:A,C:C,H:H,K:O,Q:U").EntireColumn.Delete
  End Sub`[code]
  </code></pre>
  
  <p>But that didn't work for me because in future some columns may add in it and I want columns should recognize  with name which column to keep and remaining to discard.</p>