Hi Simon,

I am still getting this 'run time error', where am I going wrong?

See my code below:




[VBA]
Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox2_Change()

Me.ComboBox2.Value = Format(ComboBox2.Value, "mmmm dd")

End Sub

Private Sub CommandButton1_Click()
Dim rFound As Long, dFound As Long
Dim Rng As Range
Me.ComboBox2.Value = Format(ComboBox2.Value, "mmmm dd")
rFound = Range("C22:C" & Range("C" & Rows.Count).End(xlUp).Row).Find(What:=UserForm1.ComboBox1.Value, _
After:=Range("C22"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Row
dFound = Cells.Find(What:=UserForm1.ComboBox2.Value, After:=Range("C22"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Column
Cells(rFound, dFound).Value = "Recieved"
Unload Me

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Please use the Quit button!"
End If

End Sub
[/VBA]