I am using the following piece of code to center a title across a changing
range, where intMaxRow (I know the wrong row, column reference) is the last
column.

..Range("A2").Resize(1, intMaxRow).HorizontalAlignment = _
xlCenterAcrossSelection

The problem is that it does not reset the range, it only takes the last
greatest width. For example Previously intMaxRow = 8 and I reset it to
intMaxRow = 4, it will still center it across the 8 rather than the 4.

Any thoughts