Worksheet Change Event code help

Hi All,

I would like the following to occur on my report:
A change in value on cell B4 on Sheet1 runs a macro that changes cell X6 in Sheet2 (which is a hidden sheet) to the same value.

I tried a sample code (below) putting B4 value on Sheet 2 and keeping it visible; and this worked but after changing the cell value of X6, it goes into "Calculate" mode, and the excel gets stuck such that I have to end the Excel process from windows task manager.

/**

Private sub worksheet_change(ByVal Target As Range)

if intersect (target, range("B4")) is nothing then
	if range("B4").value <> "(All)" then
		range ("X6").value = range ("B4").value
	end if
end if
End sub

**/

Any help/ ideas on how to get this done?? Thanx in advance.