Apple

tell application "Microsoft Excel"

tell active workbook

tell active sheet

set theLastRow to first row index of (last cell of used range)

tell range ("A1:A" & theLastRow)

set theResult to string value of every cell

repeat with jItem from 1 to count theResult

if item jItem of theResult = "" then

set item jItem of theResult to false

end if

end repeat

set theResult to strings of theResult

end tell

— — — — — — — — — — — — — — — — — — — — —

Happy Automation,

Larry McMunn, President

McMunn Associates, Inc. • Collingswood, NJ • Seminole, FL
(856) 393-4756 or Skype: wlarrymcmunn

"Brevity is your best friend…"