The AddItem seems to work fine, but RemoveItem doesn't, yet I've used precisely the same syntax except for 'RemoveItem'
MsgBox "Booking cancelled!", vbInformation, "Booking Cancellation"
If Month(Me.Date_1) = 1 Then
ListJ.RemoveItem Me.BoI
ElseIf Month(Me.Date_1) =...