Creating a macro to delete rows in Excel using VB

Question

I need a code that will delete the enitre row when a specific name is typed into column A. So, for each row that has "Surgery" in column A, it needs to be deleted. Thanks.

Answer 1

This should work. All you need to do is change the value of areaToSearch to fit your workbook. Also watch the case on the keyword, "Surgery" and "surgery" are not the same! I tested this and it worked on a sheet I made up.

Option Explicit

Sub DeleteSurgery()

    Dim keyWord As String
    Dim cell As Range, areaToSearch As Range

    keyWord = "Surgery"
    Set areaToSearch = Sheet1.Range("A1:A10")

    For Each cell In areaToSearch
        If cell.Value = keyWord Then
            cell.EntireRow.Delete
        End If
    Next cell

End Sub