Don't use a selection object for this. Assuming there is no initial content in the new doc you could remove those pesky .Selection lines and replace it with
.Range.Text = "Station Name" & vbCr & "Programme Number" & vbCr & "Programme Date" & vbCr
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
|