[RESOLVED] Text Box not clearing

I have the following code. When the Form launchs sometimes the text box's dont clear on form startup? Can anyone see why?

Code:

---

Dim Address As Worksheet

' Clear Control Each Individual Control Source Range
Private Sub cmdClear1_Click()
Me.txtAddress1 = ""
End Sub

Private Sub cmdClear2_Click()
Me.txtAddress2 = ""
End Sub

Private Sub cmdClear3_Click()
Me.txtAddress3 = ""
End Sub

Private Sub cmdClear4_Click()
Me.txtAddress4 = ""
End Sub

Private Sub cmdClear5_Click()
Me.txtcity = ""
End Sub

Private Sub cmdClear6_Click()
Me.txtcounty = ""
End Sub

Private Sub cmdClear7_Click()
Me.txtpostcode = ""
End Sub

Private Sub cmdClear8_Click()
Worksheets("Address").Range("B8").Value = ""
End Sub

' Load CatID Panel
Private Sub cmdEnterCont_Click()
    Unload Me
        Sheets("Address").Select
 
End Sub

' Shows CmdClear box for required Text box
Private Sub txtAddress1_Enter()
 cmdClear1.Enabled = (txtAddress1.Text <> "")
 cmdClear1.Visible = True
 cmdClear2.Visible = False
 cmdClear3.Visible = False
 cmdClear4.Visible = False
 cmdClear5.Visible = False
 cmdClear6.Visible = False
 cmdClear7.Visible = False
 cmdClear8.Visible = False
End Sub




Private Sub txtAddress2_Enter()
 cmdClear2.Enabled = (txtAddress2.Text <> "")
 cmdClear1.Visible = False
 cmdClear2.Visible = True
 cmdClear3.Visible = False
 cmdClear4.Visible = False
 cmdClear5.Visible = False
 cmdClear6.Visible = False
 cmdClear7.Visible = False
 cmdClear8.Visible = False
End Sub


Private Sub txtDAddress3_Enter()
 cmdClear3.Enabled = (txtAddress3.Text <> "")
 cmdClear1.Visible = False
 cmdClear2.Visible = False
 cmdClear3.Visible = True
 cmdClear4.Visible = False
 cmdClear5.Visible = False
 cmdClear6.Visible = False
 cmdClear7.Visible = False
 cmdClear8.Visible = False
End Sub


Private Sub txtAddress4_Enter()
 cmdClear4.Enabled = (txtAddress4.Text <> "")
 cmdClear1.Visible = False
 cmdClear2.Visible = False
 cmdClear3.Visible = False
 cmdClear4.Visible = True
 cmdClear5.Visible = False
 cmdClear6.Visible = False
 cmdClear7.Visible = False
 cmdClear8.Visible = False
End Sub

Private Sub txtcity_Enter()
 cmdClear5.Enabled = (txtcity.Text <> "")
 cmdClear1.Visible = False
 cmdClear2.Visible = False
 cmdClear3.Visible = False
 cmdClear4.Visible = False
 cmdClear5.Visible = True
 cmdClear6.Visible = False
 cmdClear7.Visible = False
 cmdClear8.Visible = False
End Sub

Private Sub txtcounty_Enter()
 cmdClear6.Enabled = (txtcounty.Text <> "")
 cmdClear1.Visible = False
 cmdClear2.Visible = False
 cmdClear3.Visible = False
 cmdClear4.Visible = False
 cmdClear5.Visible = False
 cmdClear6.Visible = True
 cmdClear7.Visible = False
 cmdClear8.Visible = False
End Sub



Private Sub txtpostcode_Change()
Worksheets("Address").Range("B8").Value = "'" & txtpostcode
End Sub

Private Sub txtpostcode_Enter()
 cmdClear7.Enabled = (Worksheets("Address").Range("B8").Value <> "")
 cmdClear1.Visible = False
 cmdClear2.Visible = False
 cmdClear3.Visible = False
 cmdClear4.Visible = False
 cmdClear5.Visible = False
 cmdClear6.Visible = False
 cmdClear7.Visible = True
 cmdClear8.Visible = False
End Sub


Private Sub txtCountry_Enter()

 cmdClear1.Visible = False
 cmdClear2.Visible = False
 cmdClear3.Visible = False
 cmdClear4.Visible = False
 cmdClear5.Visible = False
 cmdClear6.Visible = False
 cmdClear7.Visible = False
 cmdClear8.Visible = True
End Sub


Private Sub UserForm_Activate()



Me.txtAddress1 = ""
Me.txtAddress2 = ""
Me.txtAddress3 = ""
Me.txtAddress4 = ""
Me.txtcity = ""
Me.txtcounty = ""
Worksheets("Address").Range("B8").Value = ""
Me.txtCountry = ""
cmdClear1.Visible = True
cmdClear2.Visible = False
cmdClear3.Visible = False
cmdClear4.Visible = False
cmdClear5.Visible = False
cmdClear6.Visible = False
cmdClear7.Visible = False
cmdClear8.Visible = False
   
End Sub

' Selects the Correct CATID sheet
Private Sub UserForm_Initialize()
Sheets("address").Select
Me.txtAddress1 = ""
Me.txtAddress2 = ""
Me.txtAddress3 = ""
Me.txtAddress4 = ""
Me.txtcity = ""
Me.txtcounty = ""
Worksheets("Address").Range("B8").Value = ""
Me.txtCountry = ""
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    If CloseMode = vbFormControlMenu Then
        MsgBox "Please use the Next button to close the form", vbCritical
        Cancel = True
    End If

End Sub

---

Clear all textboxes at design time or
Change Private Sub UserForm_Activate() to Private Sub UserForm_Initialize()

And why do you have separate buttons for each textbox? Why not clear them all with just one button click?

Going thru each textbox in design time and clearing them can be a pain sometimes.

The best way is to use code to loop and clear off all textboxes as shown below

Code:

---

Private Sub UserForm_Initialize()
    Dim cCont As Control
   
    'loop thru all textboxes and clear them
    For Each cCont In Me.Controls
        If TypeName(cCont) = "TextBox" Then
            cCont.Text = ""
        End If
    Next cCont
End Sub

---

Hope this helps...

Used that and seems to Clear everything as expected. Thanks