Clear a textbox

  • Thread starter Thread starter Stuart
  • Start date Start date
S

Stuart

I cannot find a way to clear the contents of an
ActiveX textbox.
Here is what I would like to say:

Sub ClearTextbox()
Dim oleObj As OLEObject

For Each oleObj In ActiveWorkbook.Sheets _
("Contract Master Order").OLEObjects
If TypeOf oleObj.Object Is MSForms.TextBox Then
If oleObj.Name = "Control 1" Then
With oleObj
'clear the contents
End With
End If
End If
Next

Would appreciate help, please.

Regards.
 
Sub ClearTextbox()
Dim oleObj As OLEObject

For Each oleObj In ActiveWorkbook.Sheets _
("Contract Master Order").OLEObjects
If TypeOf oleObj.Object Is MSForms.TextBox Then
If oleObj.Name = "Control 1" Then
With oleObj
.Object.Value = ""
End With
End If
End If
Next


or just

ActiveWorkbook.Sheets("Contract Master Order") -
.OLEObjects("Control 1").Object.Value = ""
 
Value!
Thanks again.

Regards.

Tom Ogilvy said:
Sub ClearTextbox()
Dim oleObj As OLEObject

For Each oleObj In ActiveWorkbook.Sheets _
("Contract Master Order").OLEObjects
If TypeOf oleObj.Object Is MSForms.TextBox Then
If oleObj.Name = "Control 1" Then
With oleObj
.Object.Value = ""
End With
End If
End If
Next


or just

ActiveWorkbook.Sheets("Contract Master Order") -
.OLEObjects("Control 1").Object.Value = ""
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How to read the contents of an OLEObject (dropdown list) in excel 0
Dim ChkBoxes() As New Class1 Dilemma 1
Word Control in Excel 10
Return OLEObjects values or names - two examples 0
ActiveX Textbox question 3
Resetting Activex comboboxes to blank 2
Loop with activeX optionbuttons. 3
Collecting textbox input within a for loop 1

Back
Top