View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Jimmy Pop Jimmy Pop is offline
external usenet poster
 
Posts: 6
Default a small question

Hello,
I have the following code to look for a keyword and then clear the
contents of the cells from columns A to E above the specified word..

Sub findkeyword()
Dim cell As Range
Dim myKeyword

myKeyword = "clue"
Set cell = Cells.Find(myKeyword)
If Not cell Is Nothing Then
Range("A4:E" & cell.Row - 1).ClearContents
End If
End Sub

I want to also delete cells F, G, and H located on 2 rows below the
keyword. Can someone help me with that coding?

Thanks,
jimmy.pop