View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
merjet merjet is offline
external usenet poster
 
Posts: 812
Default Entering Data into Column C based on word from Column A

Dim c As Range
For Each c In Sheet1.Range("A2:A9")
If InStr(LCase(c), "dog") 0 Then c.Offset(0, 2) = "Doggy"
Next c

Hth,
Merjet