Troble with Code
Make sure that non of your cells contain Text values.
--
Gary's Student
"JOUIOUI" wrote:
I'm using this code to force any currency values in the selected cells to
negative. Most of the time the codes runs great, but other times it doesn't,
I get a "run time error -13 Type Mismatch". It seems to stop running when it
hits cell G92. Any ideas what could be wrong.
Also I copied this code from this site. I understand most of it but what
does the text Abs mean in the code ".Value = -Abs(.Value)"? Thanks for your
assistance and happy holidays.
Sub ForceCellsToNegative()
Dim Rng As Range
Dim rCell As Range
Set Rng =
Range("B105,B109,B61,B62,B64,B65,B67,B68,G7,G8,G20 :G31,G33:G44,G46:G57,G77:G79,G82:G101,G103:G104,G1 07:G108")
For Each rCell In Rng.Cells
With rCell
If .Value < "" Then
.Value = -Abs(.Value)
.Font.Name = "Arial"
.Font.Bold = True
.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
End If
If Not Rng Is Nothing Then
Else
Exit Sub
End If
End With
Next rCell
End Sub
|