How to Read Names of Sheets in a Workbook Without OPening the Workbook

Excel 2010.  VBA.

I am populating a combobox with the names of sheets in a workbook.  Is there a way to get a list of the sheet names without having to open the workbook and cycle through each page as I am doing below?  It takes so long and hangs up my process.

      'Populate the the PSSendTo dropdown with staff names in master workbook
      FullName = MainMenuForm.PSPayStubLocation.Text + MainMenuForm.PSMaster.Value
      Set WbTemp = Workbooks.Open(FullName)
      With WbTemp
      MainMenuForm.PSSendTo.Clear
      For I = 1 To .Sheets.Count
         MainMenuForm.PSSendTo.AddItem .Sheets(I).Name
      Next I
      .Close SaveChanges:=False
      End With
      MainMenuForm.PSSendTo.ListIndex = 0

Doug Pruiett Good News Jail & Prison Ministry Richmond, Virginia www.goodnewsjail.org