I took your code  and copied it into an Excel Module. I bolded A7 & A8, selected
A8, ran the macro and it ran fine for me. I even took out the last two lines
with no problem.

Sub insertrow()
ActiveCell.EntireRow.Insert
ActiveCell.Font.Bold = False
'ActiveCell.Select
'ActiveCell.Font.Bold = False
End Sub

Thanks for the reply
This code  doesnot work form row  10 and onwards
This I noticed later

This one was interesting!
I could not get the inserted  cells or row  to 'set' or 'clear' the formatting
no matter what I did.
Programatically used after inserting  row (or Cells):

Selection.Font.Bold = False
Selection.Font.FontStyle = "Regular"

I wonder if there is a 'seeting' that needs to be 'turned off' that defaults
the cell  formatting to the neighboring or inserted cells? Oh well. What DID
solve the issue by placing a 'value' into the inserted cells, then formatting
them to 'regular' font:

Sub insertrow()
iColumns = ActiveCell.CurrentRegion.Columns.Count
Range(ActiveCell, ActiveCell.Offset(0, iColumns - 1)).Select
Selection.Insert Shift:=xlDown
Selection.Value = "x"
Selection.Font.FontStyle = "Regular"
End Sub

Not on Excel 2003. The cell  you've made non-bold stays non-bold.

However, neither

> ActiveCell.Font.Bold = False

nor

> ActiveCell.Select
> ActiveCell.Font.Bold = False

is doing what you probably want. They are both acting on the active cell,
which is a single cell. In your case, this will be the same cell that was
active before you pushed the current row  down one.

In the same way that you used EntireRow for the insert, you could use it for
the non-bolding.

ActiveCell.EntireRow.Font.Bold = False

although I don't know whether this marks each cell in the row as having had
its format changed (which would increase the size of the saved workbook).

An alternative is to actually select the column range involved. E.g.:

Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row, "C")).Font.Bold =
False

Since you never know when someone will add a column, instead of hard coding "C"
as your last column to format, try the following:

LastUsedColumn = ActiveCell.SpecialCells(xlLastCell).Column
Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row,
LastUsedColumn)).Font.Bold =
False

I tested the code  on Windows XP, Excel 2003 all the way to Row 65525 with no
problems. What version are you runing?