For my headers on a report I am creating, I need to be able to center
justification and wrap the text. How do I do that in association with this
code or before the code.

ActiveCell.Offset(0, 0).Value = "Date"

Thanks