title: VBScript Activate open Excel spreadsheet without URL
body: <p>I have a project where the application will be used for multiple spreadsheets and naming formats are always going to be different. They want me to use <em>File &rarr; Open</em> from the menu to open a window where they select the spreadsheet from their desktop. I've got the VBScript code for that, but I can't activate the workbook to gather, or enter, data.</p>
  
  <pre><code>WShell.SendKeys "%FO"
  
  objExcel.Wait (Now + TimeSerial(0, 0, 3))
  
  For i = 1 to 3
     WShell.SendKeys "+{TAB}"
  Next
  
  WShell.SendKeys "{HOME}"
  WShell.SendKeys "D"
  WShell.SendKeys "{ENTER}"
  
  MsgBox "Please select the file you want to open, then click OK to continue.", _
      vbOKOnly+vbSystemModal, "Open File"
  
  WShell.SendKeys "{ENTER}"
  
  Set objWorkbook = ThisWorkbook
  
  objWorkbook.Sheets(1).Activate
  objWorkbook.Sheets(1).Cells(1, 1).Value = "Hello"
  </code></pre>
  
  <p>I want <code>Set objWorkbook = ThisWorkbook</code> to activate the current workbook without having to use its name or URL. Can someone help me with this?</p>