This will work on a dynamic column A.

Sub Bold()
Dim lr As Long
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("A2:A" & lr)
If c.Value = Int(c.Value) Then
c.Font.ColorIndex = 3
End If
Next
End Sub



"Mike" wrote in message
...
I'm an amateur excel user and I've just taught myself how to create a
macro.
I have a bid program that I export a summary sheet to excel. I've set up
a
macro to format column widths and column colors. I want to add to this
macro
to search column A for WHOLE numbers. If the cell in column A is a whole
number, then I want to change that row to bold. Help please?