Dynamically select a cell inside For statement

Question

I want to dynamically select a cell, in column B, inside a For statement.

However I get: "Application-defined or object-defined error"

How can I do this properly?

For i = 1 To 30
Sheets("Back").Range(Cells(i + 3, 2)).Select

Select Case ActiveCell.Value

Case "3"
Sheets("Back").Cells(i + 3, 2).Value = "Good"

Case "8"
Sheets("Back").Cells(i + 3, 2).Value = "Bad"


Case Else
Sheets("Back").Cells(i + 3, 2).Value = ""

End Select

Next i

Please see [How to avoid using Select in Excel VBA macros](http://stackoverflow.com/q/10714251/11683) — GSerg, Oct 14 '14 at 08:07

score 0 · Accepted Answer · answered Oct 14 '14 at 09:13

try this:

For i = 1 To 30

        Sheets("Back").Cells(i + 3, 2).Select

        Select Case ActiveCell.Value

        Case "3"
        Sheets("Back").Cells(i + 3, 2).Value = "Good"

        Case "8"
        Sheets("Back").Cells(i + 3, 2).Value = "Bad"


        Case Else
        Sheets("Back").Cells(i + 3, 2).Value = ""

        End Select

Next i

Dynamically select a cell inside For statement

1 Answers1