Changing the value of a cell depending on what is entered into it

[liampog]

Hi there

I want the value of a cell to be changed (probably using Worksheet_Change) depending on what is entered.

For any value that is entered, I want it to be multiplied by 1000.

I've tried a couple of options but only seem to get Overflow errors which I assume is because after the value of the cell is changed, it then goes into a loop and multiplies it by 1000 again.

Is there any way of making this happen only once?

Thanks,
Liam

 

[Scott Huish]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.EnableEvents = False
For Each c In Target
    If IsNumeric(c) And c <> "" Then c = c * 1000
Next
Application.EnableEvents = True
End Sub

 

[liampog]

Thanks for that, I see how it works. I've added the code that would allow me to apply this rule to the columns that I need.