एक्सेल vba हटाने के एक पत्रक

पंक्तियों को हटाने एक्सेल में vba कोड

Sub DeleteRowswithSpecificValue()
For i = Selection.Rows.Count To 1 Step -1
If Cells(i, 2).Value = "Printer" Then
Cells(i, 2).EntireRow.Delete
End If
Next i
End Sub