0

Hi Champs,

Im using VBA for Excel. and

Im trying to use the code below to move through records and increment their values by one since they meet a certain criteria

```
Sub promotion()
Dim x As Range
Dim y As Integer
Sheet2.Range("c2").Activate
Do While y < 1002
y = ActiveCell.Row
Set x = Sheet2.Cells(y, 3)
x.Value = x.Value + 1
y = y + 1
ActiveSheet.Cells(y, 3).Activate
Loop
End Sub
```

Except the records are too many and the process is abit slower, Can anyone show me a better way to implement this.