Q:

How to recognize the Integer in a column using Excel VBA

I have a excel sheet where I have mentioned few tag names along the side of the serial numbers. Is it possible using excel vba to identify the Integer values in the given column and make the corresponding tag names Bold.

A:

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

