tell application "Microsoft Excel"
set testFile to choose file "PLease select the Excel Workbook!"
set fileName to testFile as string
set newWorkbook to open workbook workbook file name fileName
set theSheet to sheet 1
set theResult to {}
set theCells to (every cell in range ("A1:A100"))
repeat with theCell in theCells
if the value of theCell â "" then copy the the value of theCell to the end of theResult
end repeat
theResult
end tell