flet og centrer

Jeg forstår sådan, at du har flettede celler, dem vil du ophæve og i stedet gave værdierne i de enkelte celler, der før var flettede.
Det ordner denne, den finder de flettede celler i det markerede område og opdeler og skriver i dem.

Public Sub UnMergeAllSelectedCells()
    Dim C As Range, Tekst As String, Merg As String, Cel As Range
    For Each C In Selection
        If C.MergeCells Then
            Tekst = C.Text
            Merg = C.MergeArea.Address
            C.UnMerge
            For Each Cel In Range(Merg)
                Cel = Tekst
            Next
        End If
    Next
End Sub

tak kabbak. det funger som det skal. et svar tak

et svar ;-))