Solved: For Each c In Range("Test")

[mdmackillop]

Try
[vba]
Sub Loops()
Dim c As Range, Check As Boolean
Retest:
Check = False
For i = 1 To UBound(Range("Test")())
If Range("Test")(i) = "Server4" Then
Range("Test")(i).Value = "Changed"
i = i - 1
End If
MsgBox Range("Test")(i)
Next
End Sub

[/vba]