#Select your cells and run this code and it will un-merge all the cells from the selection with your loosing data. Sub UnmergeCells() Selection.UnMerge End Sub