by sagar » Wed Nov 24, 2010 5:59 pm
Hi,
I wrote this piece of code, which works fine but makes Excel run very slowly. Do you have any suggestion on how to make it faster?
Many thanks in advance,
S.
Private Sub Worksheet_Change(ByVal Target As Range)
For g = 0 To 100
For a = 0 To 2
For z = 0 To 14
x = 5 + (9 * g)
y = 32
Application.EnableEvents = False
If Cells(x + a, y + z).Value <> "" Then
Cells(x + a, y + z + 15).Value = Cells(x + a, y + z).Value
End If
Next
Next
Next
Application.EnableEvents = True
End Sub