title: VbScript search for a specifc header and select the whole column
body: <p>I am writing a VbScript to delete specific columns off an excel file dropped in via arguments. Row 1 of the excel files are the headers for the columns. Here's my current code to find a specific string among the headers.</p>
  
  <pre><code>Set objExcel = CreateObject("Excel.Application")
  If WScript.Arguments.Count = 0 Then
      WScript.Echo  "Drop excel files on this script"
  Else
      objExcel.Visible = True
      objExcel.Workbooks.Add(WScript.Arguments.Item(0))
      Set FoundCell = objExcel.Range("A1:C1").Find("Sales Figures")
  
      '* Select the entire column of FoundCell and remove it
  
  End If
  </code></pre>
  
  <p>My 1st issue is that i have to manually specify the range of headers (A1:C1) to search from. Is there any way to do it automatically (A1:X1) - where X is the last column in the excel sheet.</p>
  
  <p>2nd, is how can i remove the entire column of FoundCell?</p>