Apologies, I was not aware of the tags. I am not sure if I did it correctly but I did as I understood from your instructions.
Thank you so much. 
Hi!
I have this code to delete an employee based on the employee id a user inputs. I placed a note on the message box because I cannot figure out how I can delete several employee id inputs all at once.
Can anybody help me add a command to delete multiple rows based on user input of employee id's (separated by semicolon)? It would also be cool to have a confirmation message like:
The following employee id's were deleted from the list:
123
456
789
The following employee id's were not found:
654
321
Sub delete_employee()
Dim lastRow As Long, x As Long
Dim resp
resp = InputBox("Enter Id of employee to delete." & vbLf & "NOTE: This action can only be done one employee id at a time.", "Delete")
If resp = "" Then Exit Sub
MsgBox ("Are you sure you want to permanently delete this employee from the list?" & vbLf & resp)
lastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
If IsDate(resp) Then
resp = CDate(resp)
End If
For x = lastRow To 1 Step -1
If IsDate(resp) Then
If Cells(x, "A").Value = resp Then
Rows(x).Delete
End If
End If
If Not IsDate(resp) Then
If UCase(Cells(x, "A").Value) = UCase(resp) Then
Rows(x).Delete
End If
End If
Next
End Sub
Thank you so much for all your help!
Bookmarks