Ok - think I've cracked it - well seems to work OK.Just replaced the rNa.Font.Bold = Truewith rNa.EntireRow.Insertrather than calling a sub to do the insertthanks for your time guys