Clear contents of a merged cell

[ipbr21054]

I have some text in cell A3 which is merged with cell A4

In a line of code i use i have the following.

Range("A3").ClearContents

I see the error message "Cant change part of a merged cell"
I click ok etc but the value in the cell A3 is cleared no problem.
How can i clear the contents without the error message.

Please advise thanks.

 

[Peter_SSs]

You could use either of these

Range("A3:A4").ClearContents

Range("A3").MergeArea.ClearContents

 

[KOKOSEK]

Try this way:

Sub ClearEvenMerged()
For Each cell In [A1:A10]
    If cell.MergeCells Then
        cell.MergeArea.ClearContents
    Else
        cell.ClearContents
    End If
Next cell
End Sub

 

[ipbr21054]

Thanks for the advice now sorted

 

[Peter_SSs]

You're welcome. Glad we could help.

 

[ipbr21054]

@Peter_SSs

Would you mind taking a quick look please at this post.

Code for saved name of pdf file

Hi, Something simple but its got me. Currently the saved PDF file is as follows JUNE 06 2021 (2) BUT i would like it to be saved as 06 JUNE 2021 (2) This is the line of code in use. strFileName = "C:\Users\Ian\Desktop\GRASS CUTTING\CURRENT GRASS SHEETS\INCOME 2021-2022\" & Range("A3") & "...

www.mrexcel.com

Just need to get the code in correct order for the saved file name.

Thanks & have a nice day.