Results 1 to 2 of 2
  1. #1
    3 Star Lounger
    Join Date
    Aug 2002
    Location
    St. Charles, Illinois
    Posts
    222
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Delet astericks (Excel 2000)

    Post deleted by cindypositano

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Delet astericks (Excel 2000)

    Variations on code to delete empty rows will do, or (I have assumed that you want to delete a row if the cell in column A contains "***"):

    Sub DeleteRowsWithAsterisks()
    Dim rng As Range
    Dim lngRows As Long, lngIndex As Long
    Set rng = Range("A1", Range("A65536").End(xlUp))
    lngRows = rng.Rows.Count
    For lngIndex = lngRows To 1 Step -1
    If rng.Cells(lngIndex) = "***" Then
    rng.Cells(lngIndex).EntireRow.Delete
    End If
    Next lngIndex
    Set rng = Nothing
    End Sub

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •