View Single Post
 
Old 05-12-2020, 04:03 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,977
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

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
Reply With Quote