Yes, did that thanks.
Just noticed another problem,
I want the rest of the row to be centre justified, I thought I had solved this with
        Do
            c.Font.Bold = True
            c.Rows.RowHeight = 22.25
            c.Rows.VerticalAlignment = xlCenter

            Set c = .FindNext(c)
but it doesn't seem to work.