try
  tell application "Numbers"
    tell document 1
      -- DETERMINE THE CURRENT SHEET
      set current_sheet_index to 0
      repeat with i from 1 to the count of sheets
        tell sheet i
          set x to the count of (tables whose selection range is not missing value)
        end tell
        if x is not 0 then
          set the current_sheet_index to i
          exit repeat
        end if
      end repeat
      if the current_sheet_index is 0 then error "No sheet has a selected table."
      -- GET THE VALUES OF THE SELECTED CELLS
      tell sheet current_sheet_index
        set the current_table to the first table whose selection range is not missing value
        tell the current_table
          set the range_values to the value of every cell of the selection range
        end tell
      end tell
    end tell
  end tell
  -- CONVERT THE VALUES LIST TO PARAGRAPHS
  set AppleScript's text item delimiters to return
  set the bullet_points to the range_values as string
  set AppleScript's text item delimiters to ""
  -- CREATE A NEW SLIDE AND USE THE VALUES LIST AS BULLETS
  tell application "Keynote"
    activate
    tell slideshow 1
      set this_slide to make new slide at the beginning of slides
      tell slide 1
        set body to the bullet_points
      end tell
    end tell
  end tell
on error error_message
  display dialog error_message
end try