VBA: Unmerge cells

[jakobt]

Want to write VBA code to delete all content in the range A1:I1000 and at the same time unmerge any cells in the same range (A1:I1000).

 

[BarryL]

Does the below work for you?

Sub Macro1()
Range("A1:I1000").Clear
End Sub

 

[Fluff]

How about

Sub Cleanup()
   With Range("A1:I1000")
      .ClearContents
      .MergeCells = False
   End With
End Sub

If you want to remove formatting as well as just the contents, change ClearContents to Clear