Try this

Sub Stupid_Syntax()
With ActiveSheet.OLEObjects("Quest1Date")
.Enabled = False
.LinkedCell = "AA1"
With .Object
.MultiLine = True
.WordWrap = True
End With
End With
End Sub

Mike

"PCLIVE" wrote:

I have a textbox (created from the Control Toolbox). Using VBA, how can I
set the WordWrap and Multiline properties?
I have tried the following code. It sets the first two properties, but it
errors on the "WordWrap" property. Individually, I've also tested the
Multiline property with the same result. What am I doing wrong?

ActiveSheet.OLEObjects("Quest1Date").Select
With Selection
.Enabled = False
.LinkedCell = "AA1"
.WordWrap = True
End With



Thanks,
Paul

--