Slette alle rækker, som indeholder tekst

Jeg vil gerne vide, om det er muligt at lave en macro, så den sletter alle de rækker, hvor f.eks. den markerede kolonne har tekst indhold.

Jeg har følgende macro til at slette rækker med 0 (nul):

Sub deleterow()
Dim xRow As Integer
Dim yCol As String
Dim point As String
Dim vValue As Integer

Set r = Selection.Columns(1)

    For i = r.Rows.Count To 1 Step -1
        If r.Cells(i).Value = 0 Then
            r.Cells(i).EntireRow.Delete
        End If
    Next i
   
End Sub

Hvordan laver jeg den om, så den kan klare ovenstående opgave?

MVH
Claus