zkus tento MsgBox
MsgBox "Aktivní buňka je sloučená: " & ActiveCell.MergeCells & vbNewLine & _
"Oblast aktivní buňky: " & ActiveCell.MergeArea.Address, vbInformation, "Aktivní buňka"citovat
MsgBox "Aktivní buňka je sloučená: " & ActiveCell.MergeCells & vbNewLine & _
"Oblast aktivní buňky: " & ActiveCell.MergeArea.Address, vbInformation, "Aktivní buňka"citovat