-- Align selected cells across selection -- Copyright under GPL by Mark Grimes -- Saving with '\sca' in the filename creates Shortcut: Crtl+Shift+a tell application "Microsoft Excel" --activate tell range (get address selection) of active sheet if (get count columns) > 1 or (get count rows) > 1 then if (get horizontal alignment) is horizontal align center across selection then set horizontal alignment to horizontal align general else set horizontal alignment to horizontal align center across selection end if else if (get horizontal alignment) is horizontal align center then set horizontal alignment to horizontal align general else set horizontal alignment to horizontal align center end if end if end tell end tell