VBA Excel - Word Wrap

Question

I'm creating a small piece of VBA code with a specific formula, however it has a couple of if statements, one of which originates a double-line string (with vbNewLine) The issue is that I can't see the text.

So I wanted to word wrap it, but each time I set the ActiveCell.WrapText = True, nothing happens.

I checked with a message box. I set the WrapText to True, I return the property value with the MessageBox to confirm, and it's still False.

I've been told to use ActiveCell.Rows.AutoFit as well, but AutoFit does nothing if the text isn't wrapped.

Any idea what I might be doing wrong here?

Answer 1

For me, the code below worked. (only set to change header row, (change range))

ActiveSheet.Range("A1:R1").Select
With Selection
    .WrapText = True
End With

Answer 2

try:

Sub WrapandFit()

    ActiveCell.WrapText = True
    ActiveCell.EntireRow.AutoFit

End Sub

It worked for me. Make sure that your screenupdating is also set to true.