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