Delete if in list

Hello!

I want to define a list, and delete row if the the column contains a value in the list:

Something like this

Sub deleteIFinlist

Dim List
99998
99984
99994

For rwNum = lastRow To 1 Step -1
   If Cells(rwNum, "h") = List or then
   Cells(rwNum, "h").EntireRow.Delete
End If 
Next


End sub