Populate Userform with values from table

Sorry.

I updated that afterwards. Upload a new sample from Post Number 2.

Try this:

    For Each ctl In Me.Controls

On Error Resume Next
        Select Case TypeName(ctl)
            Case "TextBox"
                ctl.Value = ""
            Case "ComboBox", "ListBox"
                ctl.ListIndex = -1
                ctl.value =""
        End Select
    Next ctl
On Error Goto 0

Alternatively:

Create a Change Flag. Set Your Emtry to an empty row and load a blank entry.

Global CF as Boolean

Sub ClearScreen()
CF = True
Entry = Cells(rows.count,1).End(xlUp).Row+2
LoadEnty
End Sub

Sub LoadEntry()
On Error Resume Next
'CF is the flag to stop macros running when a Control is modified.  Example Below
CF = True

LoadArray = Range((Entry, "A"),(Entry, "BQ")).value

For Count =3 To 69
      Me.Controls("CheckBox" & Count).Value = LoadArray(Count)
      Me.Controls("ComboBox" & Count).Value = LoadArray(Count)
      Me.Controls("ListBox" & Count).Value = LoadArray(Count)
      Me.Controls("Label" & Count).Caption = LoadArray(Count)
      Me.Controls("TextBox" & Count).Value = LoadArray(Count)
      Me.Controls("SpinButton" & Count).Value = LoadArray(Count)
Next

CF = False
On Error GoTo 0
End Sub

'*************************************************************************************************