RUNTIME ERROR 9

[Rachel]

Hi,

Can anyone help, im using the following codes:

Private Sub UserForm_Initialize()
Dim cUSER As Range
Dim cTENOR As Range
Dim cRMPM As Range
Dim ws As Worksheet
Set ws = Worksheets("LookupLists")

For Each cUSER In ws.Range("USER")
With Me.cbouser
.AddItem cUSER.Value
.List(.ListCount - 1, 1) = cUSER.Offset(0, 1).Value
End With
Next cUSER

For Each cTENOR In ws.Range("TENOR")
With Me.cbotenor
.AddItem cTENOR.Value
.List(.ListCount - 1, 1) = cTENOR.Offset(0, 1).Value
End With
Next cTENOR

Me.txtDate.Value = Format(Date, "Medium Date")
Me.txtcn.Value = ""
Me.txtTA.Value = ""
Me.txtamt.Value = ""
Me.txttf.Value = ""

For Each cRMPM In ws.Range("RMPM")
With Me.cboRM
.AddItem cRMPM.Value
.List(.ListCount - 1, 1) = cRMPM.Offset(0, 1).Value
End With
Next cRMPM

Me.txtrem.Value = ""
Me.cbouser.SetFocus

End Sub