Sub Macro2() Range(Cells(666, 22) & ":" & Cells(666, 24)).MergeCells = True End Sub
Sub Macro2() Range(Cells(666, 22).Address & ":" & Cells(666, 24).Address).MergeCells = True End Sub