For looper = 1 To Range("B" & Rows.Count).End(xlUp).Row
Set cellPointer = Worksheets("Sheet1").Range("B" & looper)
If cellPointer 0.5 Then
cellPointer.Offset(0, -1) = cellPointer.Offset(0, -1) + 1
End If
Next looper

"Croc" wrote:

Hi, i need a macro, that would add 1 to a number in cell ex. A1 when
for ex. B2 is greater then 0.50.

I use RANDOM formula to generate number in B2. When generated number
is greater then 0.50 then it should add 1 to cell A1.

So when there is "27" in A1 and B2 generated 0.77 it should change A1
to 28, if not, it should leave it as A1 was.

Can any one help me?

Thanks, Martin