Perfect. The autofit works like a charm. THANK YOU!!

"Mike H" wrote:

Pam,

It depends on what you want to do. Like this

Range("A1").Value = "antidisestablishmentarianism"
With Range("A1")
.WrapText = True
End With

or like this

Range("A1").Value = "antidisestablishmentarianism"
Columns("A:A").EntireColumn.AutoFit

Mike

"Pam" wrote:

How do I automatically resize a cell in Visual Basic depending on the amount
of text I enter?