Attribute VB_Name = "testapplicaiotnother1" Sub ƒeƒXƒg() Range("B2:C2").Merge End Sub