**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