Problem with merging cells

[Diving_Dan]

Hi all,

Having a nightmare this morning and not sure where I am going wrong with this code. Help as always is appreciated.

With Sheets("Report")
.Range("A1:C1").merge
End With

 

[MARK858]

Much as I hate merged cells, what issues are you having as the code works fine for me?

 

[Diving_Dan]

Nothing happens, the cells don't merge. When I type the code into VBA editor the "m" on merge does not capitalise and stays lowercase.

 

[MARK858]

Have you defined a variable with the name merge (or named a sub merge)?

 

[Diving_Dan]

No i haven't defined any variable. Below is all the code for this portion.

If cboTeam.Value = "A" And OptionRadio.Value = True Then
    
Application.ScreenUpdating = False
    
With Sheets("Report")
.Cells.Clear
.Range("A1:C1").merge
End With
    
End If

Application.ScreenUpdating = True

 

[MARK858]

Run the code below, does the text in the editor capitalise?

Sub xxxx()
Dim Merge
End Sub

and do all the cells on Sheets("Report") clear with the code that you posted?

 

[Diving_Dan]

No the text does not capitalise.

Yes all cells clear with the code.

 

[MARK858]

I am afraid if you haven't named any variable or Sub as "merge" then I have no other ideas at present (and that is just for the capitalisation issue).
Maybe someone else will have an idea.

 

[Diving_Dan]

I must have merge somewhere within some code somewhere as I have just tried it on a blank sheet and it works.