The below code was working just fine... then for reasons unknown to me it stopped and now I get run-time error 438, Object doesn't support this property or meathod. Any ideas on what is going on?!

For Each mytemplate In Templates
If mytemplate.Name = "Form.dotm" Then _


mytemplate.BuildingBlockEntries("Template1").Inser t Where:=Selection.Range, RichText:=True
Next

Hi cksm4,

Is your selection a valid range fo the insertion? And do you really have 'Inser t'?

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Hey Paul

The "insert" is spelled correctly in my command. The space must have happened when I posted it:/

I started a new blank document and re-did the code top to bottom after much time spent trying to figure it out. It works on the new form. No idea what the difference is!