Hi Cody,

Try:

Sub DropDown1_Change()
With ActiveSheet.OLEObjects("TextBox1")
If Sheets("Sheet1").Range("B1") = 3 Then
.Visible = False
Else
.Visible = True
End If
End With
End Sub

---
Regards,
Norman



"Cody" wrote in message
...
Sub DropDown1_Change()
If Sheets("Sheet1").Range("C62") = 3 Then
TextBox1.Visible = False
Else: TextBox1.Visible = True
End If
End Sub

The debugger say "Object Required" and highlights the Else line.

Thanks