Jo,

SCell is a number variable, not a cell variable. Anyway, it is totally
superfluous.

The code loops until miraculously the Activecell becomes 1. Unless you have
some sort of feeding updating J24 it never will.

What exactly do you want to do?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Jo" wrote in message
oups.com...
Hi,

How can I make ActiveCell below refer to SCell?

Dim SCell As Integer
Do Until ActiveCell.Value = 1
Range("J24").Select
Calculate
Loop

Thanks,
Jo