Worksheets("Sheet1").Range("B2").Value = _
"This text should wrap in a cell."
Worksheets("Sheet1").Range("B2").WrapText = True

Worksheets("Sheet1").Range("B2").HorizontalAlignme nt = xlCenter

"Nils Titley" wrote:

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