Change status of more than one item selected in Listbox

I have a Userform with a Listbox, which list items from sheet1 column A. In Column D is the status of each item
The Listbox's MultiSelect is fmMultiSelectMulti and the ListStyle is fmListStyleOption, so I can select more than 1 item
to change the status.

I am using this code with a Commandbutton, but gets an error

Sub Transfer_Item_To_Wash()
Dim TransferItem As Long
For TransferItem = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(TransferItem) = True Then
    Sheet1.Range("A:A").Find(TransferItem, LookIn:=xlValues, lookAt:=xlWhole).Offset(0, 3).Value = "Wash"
    ListBox1.RemoveItem TransferItem
    End If
Next
End Sub