lost in a loop

[GS7CLW]

Trying to thru the cells (F2 - F75) and select those with a number in the cell then center, bold and set a yellow BG for cells containing numbers

-----go thru the cells (F2 - F75) and select those with a number in the cell------
    Set rng = Range("F2:F75")
    For Each cell In rng
    '----------if the cell contains a number then------------
    If IsNumeric(c) Then
    '---center, bold and set a yellow BG for cells containing numbers-------
    ActiveCell.Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Font.Bold = True
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    End If
    Next

Any help appreciated

 

[VoG]

Try

'-----go thru the cells (F2 - F75) and select those with a number in the cell------
    Set Rng = Range("F2:F75")
    For Each cell In Rng
        '----------if the cell contains a number then------------
        If IsNumeric(c) Then
            '---center, bold and set a yellow BG for cells containing numbers-------
            With c.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 65535
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
            c.Font.Bold = True
            With c
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlBottom
            End With
        End If
    Next cell

 

[MrKowz]

Give this a go, you were using the variable "Cell", but switched to "C" for the IsNumeric line.:

Public Sub GS7CLW()
Dim rng     As Range, _
    sRng    As Range
Set sRng = Range("F2:F75")
For Each rng In sRng
    '----------if the cell contains a number then------------
    If IsNumeric(rng) Then
    '---center, bold and set a yellow BG for cells containing numbers-------
        With rng
            .Interior.ColorIndex = 6
            .Font.Bold = True
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlBottom
        End With
    End If
Next rng
End Sub

 

[GS7CLW]

only problem I have now is it is centering bolding and bg yellow in the empty cells as well as those with a number it it....

Set rng = Range("F2:F75")
    For Each c In rng
        '----------if the cell contains a number then------------
        If IsNumeric(c) Then
            '---center, bold and set a yellow BG for cells containing numbers-------
            With c.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 65535
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
            c.Font.Bold = True
            With c
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlBottom
            End With
         End If
    Next c

 

[VoG]

Try

If IsNumeric(c) And c.Value <> "" Then

 

[GS7CLW]

'---------------yes sir yes sir three bags full------------------;>))

THANKS everyone!!!!
cliff