Davesexcell,
This is the code for the userform throwing the error message
Private Sub CommandButton1_Click()

    
    
    

EnterRecord
End Sub

Private Sub CommandButton2_Click()
UserForm1.Hide
'CB2Click
Sheets("Parameters").Select

Application.Quit
End Sub

Private Sub CommandButton3_Click()
UserForm1.Hide
UserForm2.Hide
 With Sheets("ENTERED ORDERS")
   .Range("U:AJ").Clear
   
       .Range("T4").Value = "join"
    
     .Range("AM4:BB5").Copy .Range("U4")
    x = .Range("U5").CurrentRegion.Rows.Count
        
     Application.CutCopyMode = False
     
    
   End With
    
    With Sheets("ENTERED ORDERS")
    .Range("U5:AJ5").AutoFill Destination:=.Range(.Cells(5, 21), .Cells(4 + x, 36))
   
    
              
    .Range("U5").CurrentRegion.Name = "OrdersRun"
    
  End With
  
    Sheets("SUMMARY REPORTS").Select
    Range("C10").Select
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
    Range("F1").Select
End Sub








Private Sub ListBox3_AfterUpdate()
    If flag = 1 Then
        'Call ReCol(Me)
    End If
End Sub



Private Sub OptionButton2_AfterUpdate()
With UserForm1
If .OptionButton2.Value = True Then
.TextBox14.Value = Range("One").Value
Else: .TextBox14.Value = Range("two").Value
End If
End With

If flag = 1 Then
       ' Call ReCol(Me)
    End If

End Sub


Private Sub OptionButton3_AfterUpdate()
With UserForm1
If .OptionButton3.Value = True Then
.TextBox14.Value = Range("two").Value
Else: .TextBox14.Value = Range("One").Value
End If
End With
If flag = 1 Then
        'Call ReCol(Me)
    End If
End Sub





Private Sub TextBox13_Change()

End Sub

Private Sub TextBox6_AfterUpdate()
If flag = 1 Then
        'Call ReCol(Me)
    End If
End Sub

Private Sub TextBox7_AfterUpdate()
If flag = 1 Then
       ' Call ReCol(Me)
    End If
End Sub



Private Sub TextBox8_AfterUpdate()
If flag = 1 Then
        'Call ReCol(Me)
    End If
End Sub





Private Sub UserForm_Initialize()
 ListBox1.List = Sheets("NewDownLoad").Range("D5").CurrentRegion.Value
 With UserForm1
.TextBox12.Value = Format(Now, "dd/mm/yyyy")
.TextBox13.Value = Sheets("NewDownLoad").Range("W2").Value
End With
flag = 0

End Sub
Private Sub ListBox1_Change()
  With ListBox1
    If .ListIndex > -1 Then
      TextBox1.Text = .List(.ListIndex, 1)
      TextBox3.Text = .List(.ListIndex, 10)
      TextBox9.Text = .List(.ListIndex, 4)

      If TextBox3.Text = "GW90" Then
        TextBox5.Enabled = False
        TextBox15.Text = .List(.ListIndex, 6)
      Else
        TextBox15.Enabled = False
        TextBox5.Text = .List(.ListIndex, 6)
      End If
      TextBox11.Text = .List(.ListIndex, 7)
      TextBox10.Text = .List(.ListIndex, 8)
      TextBox4.Text = .List(.ListIndex, 9)
    End If
  End With
End Sub
I have checked and can find no sign of th earlier code I used to populate ListBox1

I hope this helps to pin point the problem
John