VBA Error 6: Overflow

[Coyotyto]

I have the code:

Sub ThresholdFormatting()
ThisWorkbook.Worksheets("Calculations").Activate
Dim i As Integer, m As Integer
For m = 3 To 28
For i = 6 To 10
If Cells(i, m).Value / Worksheets(1).Cells(i, m).Value > Cells(8, 39).Value Then
Cells(i, m).Font.Color = -16776961
Cells(i, m).TintAndShade = 0
Cells(i, m).Interior.Pattern = xlSolid
Cells(i, m).PatternColorIndex = xlAutomatic
Cells(i, m).ThemeColor = xlThemeColorAccent2
Cells(i, m).TintAndShade = 0.599993896298105
Cells(i, m).PatternTintAndShade = 0
End If
Next i
Next m
End Sub

Every time I run this Code the Error 6: Overflow comes up highlighting the start of the If statement. I have run this code without the contents of the If statement and still get the same error. My issue is that I am trying to manually conditional format based on the set criteria above. The if statement formula should check to see if the cell i am referencing divided by a cell in another worksheet is less than the cell 8, 39 which is a variable Threshold.

Thanks,

 

[Special-K99]

This works

Sub ThresholdFormatting()
ThisWorkbook.Worksheets("Calculations").Activate
Dim i As Integer
Dim m As Integer
For m = 3 To 28
For i = 6 To 10
n = Cells(i, m)
o = Worksheets(1).Cells(i, m)
If n > o Then
Cells(i, m).Font.Color = -16776961
Cells(i, m).TintAndShade = 0
Cells(i, m).Interior.Pattern = xlSolid
Cells(i, m).PatternColorIndex = xlAutomatic
Cells(i, m).ThemeColor = xlThemeColorAccent2
Cells(i, m).TintAndShade = 0.599993896298105
Cells(i, m).PatternTintAndShade = 0
End If
Next i
Next m
End Sub

though I can't see what's wrong orignally

 

[Special-K99]

That's weird I replaced my change with your original line retyping

If Cells(i, m).Value > Worksheets(1).Cells(i, m).Value Then

and it's working!!??

 

[Coyotyto]

What I want it to check in the If statement is if the the cell in this worksheet divided by the cell in another worksheet is less than a certain cell that will have a set value then to change the text and fill of the cell. I tried the code but I need something like this:

[COLOR=#333333][FONT=arial black]If Cells(i, m).Value / Worksheets(1).Cells(i, m).Value > Cells(8, 39).Value Then[/FONT][/COLOR]

Cells(8, 39) will not change. My main issue has always been that the worksheet will alwasy be different so I am unable to set it to a particular sheet. it will just always be sheet 1.

 

[Special-K99]

Delete the line with the condition and retype it, it worked for me, maybe's there's some odd characters on the line.