Condiional Formating Macro

[absamant]

have a macro which i got from this forum . It goegoes as follows

Sub Test()

For I = 1 To Sheets.Count
Sheets(I).Select
Dim Sh As Worksheet
Dim LastCol As Integer
Dim Lastrow As Integer
Set Sh = ActiveSheet
With Sh
LastCol = .Cells(14, .Columns.Count).End(xlToLeft).Column
Lastrow = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range(.Cells(14, LastCol + 1), .Cells(Lastrow, LastCol + 3)).FormulaR1C1 = "=RC[-3]-RC[-4]" .Cells(1, LastCol + 1).EntireColumn.Insert

End With
Next I
End Sub


Is there a way in which i can apply conditional formatng to the the range marked in bold. I require to mark any values not between -4 and 4 in bold red

 

[northwolves]

Do a loop like the following codes:

Sub Macro1()
Application.ScreenUpdating = False
Dim sh As Worksheet, c As Range
For Each sh In Sheets
For Each c In sh.UsedRange
If Abs(c.Value) > 4 Then
c.Font.Bold = True
c.Font.Color = vbRed
End If
Next
Next
Application.ScreenUpdating = True
End Sub

Best Regards

 

[absamant]

ran the co, however gave me a run time error 13. Is there a way the code can pick up the range directly from the code i have pasted earlier. Since the range changes in every sheet it is essential that the macro detects the range and then does the conditional format