grichey
05-26-2009, 05:37 AM
The goal is to highlight a range, run the macro, have all cells that are just #'s (not formulas) AND are not presently blank/empty multiplied by 1000.
I'm getting an error on the If and I know it has to do with my use of IsEmpty but I'm not sure how to rectify.
Thanks!
Option Explicit
Sub puttothousands()
Dim c As Range
For Each c In Selection
If c.HasFormula = False And c.IsEmpty = False Then
c = c * 1000
End If
Next c
End Sub
I'm getting an error on the If and I know it has to do with my use of IsEmpty but I'm not sure how to rectify.
Thanks!
Option Explicit
Sub puttothousands()
Dim c As Range
For Each c In Selection
If c.HasFormula = False And c.IsEmpty = False Then
c = c * 1000
End If
Next c
End Sub