Reorder elements a cell using arrays, split & join

In Excel, I work with lists that look like this:

Smith: My Homeland, Collected Poems
Smith: Dr. Cuteroff, Collected Poems
Smith: Snark, Collected Poems
Chiu: Always, Anthology Of New American Literature
Jones: Our Way To start The Day, Humble Pie
Smith: Looking In
Zhdenka: Interstices, Anthology Of New American Literature

The format is generally Author: WOrk, Publication. Sometimes there is no Publication.

I would like to be able to select the cells with these works and run a macro that changes the order to:

Author: Publication - Work

like this:

Smith: Collected Poems - My Homeland
Smith: Collected Poems - Dr. Cuteroff
Smith: Collected Poems - Snark
Chiu: Anthology Of New American Literature - Always
Jones: Humble Pie - Our Way To start The Day
Smith: Looking In
Zhdenka: Anthology Of New American Literature - Interstices


I have done some VBA stuff in the past, but nothing with split, join and arrays, which I think may be needed here. Any suggestions, advice or links will be greatly appreciated.

Thanks,
k8