Try:

With objSht.Range("A1:E1")
.MergeCells = True
.Value = "My Report Title"
.HorizontalAlignment = xlHAlignCenter
End With

Regards,
Greg

-----Original Message-----
I have merged 5 cells horizontally with:

objSht.Range("A1:E1").Merge
objSht.Cells(1, 1) = "My Report Title"

How can I center the report title in the merged cells?

Bill


.