Text Appears in Red

[trsisko]

I have the following code in an Excel VBA Form. Problem is that no matter what the Text Outputs in Red. Maybe that reflects and issue with the code but I'm not sure?

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 txtAddress3_Change()
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

 

[Andrew Poulsom]

Where exactly does the Text output in red?

 

[trsisko]

When entering the

txtAddress1
txtAddress2
txtAddress3
txtcity
ect. All output in Red.

 

[Andrew Poulsom]

Check the TextBoxes' ForeColor property. The default is black &H80000008&.