Tom ---

Try the following (it may need some tweaking)

oExcel=CREATEOBJECT("Excel.Application")
oExcel.Workbooks.Open("XLSFileName.XLS")
FOR nCounter = 1 TO oExcel.Worksheets.Count
   DIME cWorkSheets(nCounter)  &&& Dynamic resizing of array is OK
   cWorkSheets(nCounter) = oExcel.Worksheets(nCounter).Name
ENDFOR

>Does anyone know of a method that can determine from VFP the number and/or name of the wooksheets in an excel work book. I woluld like to allow the users to select the actual worksheet prior to import instead of requiring all data be contained on sheet1. Thanks!