I would like to loop through all th

[carmo]

I would like to loop through all the cells in a worksheet. Where ever there is a cell the equals "current", delete that row. Can someone help me get started with created a VBA macro. Thanks.

Carmo

 

[Nikita6003]

Hiya carmo,


This should get you on your way:

    Dim l_wksSheet As Worksheet
    Dim l_rngCells As Range
    Dim cell As Range
    
    Set l_wksSheet = ThisWorkbook.Sheets("NameOfSheet")
    Set l_rngCells = l_wksSheet.UsedRange
    
    For Each cell In l_rngCells
        If cell.Value = "current" Then cell.EntireRow.Delete
    Next cell

    Set l_rngCells =nothing
    Set l_wksSheet = Nothing
/code]

Just substitute [b]NameOfSheet[/b] with the name of the sheet you want to loop through


HTH 

Cheers
Nikki