help with excel macro

[lwong]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim x
For x = 1 To 1000
If Cells(1, 1) <> "" Then
Cells(2, 1) = "hi"
End If
If Cells(2, 2) <> "" Then
Cells(3, 2) = "hello"
End If
End Sub

When I run this code, the cpu become busy, what happen? thank you.

[ablaye]

You can record a macro in Excel and then you can look at the VB code that was generated.

[lwong]

I know, but what event can do that? when cell A change value, cell B also immediately changed value

[liuyang]

Hi
What happen is, every time time you check cells(1,1).value you set cells(2,1).value to "HI", which will fire the Workbook_SheetChange event and then it will run sub again and never stop.

Cheers Karsten