Do until loop

[Deuce Bucksman]

Hello,

I'm trying to multiply all cells until they are empty by a negtive number. Can anyone tell me what is wrong with my code below? Really appreciate your help. Thanks!

Sub macrotest()
Do Until IsEmpty(ActiveCell)
ActiveCell = ActiveCell * -1
Loop
End Sub

 

[VoG]

Try like this although selecting is best avoided

Sub macrotest()
Do Until IsEmpty(ActiveCell)
    ActiveCell.Value = -ActiveCell.Value
    ActiveCell.Offset(1).Select
Loop
End Sub

 

[Joe4]

You are never moving the ActiveCell anywhere.
So you keep running your code on the same cell over and over again.