[Solved] How to recognize the Integer in a column using Excel VBA

by


Use following sub. I tested it and found working.

    Sub fBold()
        Dim UsedCell, MyRange, srcIdentifier

        UsedCell = Sheets("Sheet1").Cells(1, 1).SpecialCells(xlLastCell).Row
        Set MyRange = Range("A1:A" & UsedCell)
        For Each intCell In MyRange
            If Not InStr(1, intCell.Value, ".") > 0 Then
                intCell.Offset(0, 1).Font.Bold = True
            End If
        Next
    End Sub

1

solved How to recognize the Integer in a column using Excel VBA