Macro per eliminare celle unite

[Pietro Scanzi]

Buongiorno
dovrei eliminare tutte le celle unite da un file, in una macro.
Se tento di registrarla la memoria si esaurisce.
Mi date un suggerimento su come procedere?

[Norman Jones]

Ciao Pietro,

Post by Pietro Scanzi
Buongiorno
dovrei eliminare tutte le celle unite da un file, in una macro.
Se tento di registrarla la memoria si esaurisce.
Mi date un suggerimento su come procedere?

Prova qualcosa del genere:
'=========>>
Option Explicit

'--------->>
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range

Set WB = ThisWorkbook
For Each SH In WB.Worksheets
Set Rng = SH.UsedRange
Rng.UnMerge
Next SH
End Sub
'<<=========




===
Regards,
Norman

[Pietro Scanzi]

Post by Norman Jones
'=========>>
Option Explicit
'--------->>
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range
Set WB = ThisWorkbook
For Each SH In WB.Worksheets
Set Rng = SH.UsedRange
Rng.UnMerge
Next SH
End Sub
'<<=========

Perfetto mille grazie