replace blank spaces in first row only

Hi all,

Can anyone help with a macro that will replace blank spaces with an underscore, but in row 1 only?

i.e. Peter Rabbit = Peter_Rabbit.

Forever in your debt,

~Wayne