Select Case in a Range

**prairied0gg** · 05-12-2010, 02:40 PM

I need to loop through a range of cells - Range("AH2", Range("AH65536").End(xlUp)) - and if a certain value is found another value needs to be placed in the cell directly to the right .

I was thinking that Select Case would be the simplest method, but how do i loop through the Range in AH2 and how do I place a value in the cell to the right?

Thanks in advance for any and all help!

**Leith Ross** · 05-12-2010, 03:23 PM

Hello prairied0gg,

Like this. Just change the comparisons and the data to go into the cell at the right.

Sub Macro1()

  Dim Cell As Range
  Dim Rng As Range

    Set Rng = Range("AH2", Range("AH65536").End(xlUp)) 

      For Each Cell In Rng
        Select Case Cell.Value
          Case Is = "This", "That", "Something else"
            Cell.Offset(0, 1) = "New data"
        End Select
      Next Cell

End Sub