Sort Mulple Values alphabetically within a Cell seperated by a comma

I have a macro that can sort multiple values in one cell seperated by a comma alphabetically (see attached). The only problem I have with it is if you select multiple cells within a column (or the entire column) it only sorts the first cell and not all cells within the selection. Can the macro be modified to sort all cells that are part of the selection? Thx.