Only 1 loop working?

[vbaNewby]

'Find max 
    Sheets("Sheet2").Select
    largestNum = Application.Max(Range("F13:Z22")) 
    largestNum2 = Application.Max(Range("F24:Z32")) 
    largestNum3 = Application.Max(Range("G39:Z48")) 
    theLargest = Application.Max(largestNum, largestNum2, largestNum3)
    
    MsgBox largestNum
    MsgBox largestNum2
    MsgBox largestNum3
    MsgBox theLargest
    
    numDigits = Len(Fix(theLargest))
    MsgBox numDigits
    If numDigits >= 5 & numDigits <= 7 Then
        For Each r In Range("F13:Z20") 
                r = r / 1000
        Next
        For Each r2 In Range("F24:Z31") 
                r2 = r2 / 1000
        Next
        For Each r3 In Range("G39:Z48")
                r3 = r3 / 1000
        Next
    End If

All my cells are formatted the same. The only range that is dividing by what I want is r3. r2 and r1 do not divide at all. Haven't a clue why.

Assume numDigits returns 6....

Rather confused on this one.

Thanks in advance.

 

[vbaNewby]

No thoughts on this? I put some output statments and it looks like each cell is being traversed in the for loop but for some reason the data is being divided by 1000. Strange how only the third loop works.

 

[vbaNewby]

Seems that I needed to use r.value = r.value / 1000

It worked after I changed that.

 

[mole999]

glad you found it