Problem : VBA to multiply every cell by 1000

Problem : VBA to multiply every cell by 1000

I know this is a simple question, however I am new to VBA and cannot seem to get this to work.  All I need is code to multiply every value in Range “target” by 1000.  Thanks in advance for any help.

Regards,


 

Solution: VBA to multiply every cell by 1000

The values are probably just text values versus a real error…this version skips errors, text, and blanks:

Public Sub Convert()

Dim Cell As Range
For Each Cell In Selection
If IsNumeric(Cell) And Len(Trim(Cell)) > 0 Then Cell = Cell * 1000
Next Cell

End Sub