Ciao il codice, che posto qua:

Sub AutoNew()

Order = System.PrivateProfileString("C:\Settings.Txt", _
"MacroSettings", "Order")

If Order = "" Then
Order = 1
Else
Order = Order + 1
End If

System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _
"Order") = Order

ActiveDocument.Bookmarks("Order").Range.InsertBefo re Format(Order, "00#")
ActiveDocument.SaveAs FileName:="path" & Format(Order, "00#")

End Sub

funziona perfettamente, il fatto è che il segnalibro per esigenze da layout andrebbe messo nell'intestazione del modello, che però è protetto e quindi quando creo un documento mi da un errore di runtime perchè l'oggetto fa riferimento ad un area protetta.
Come si potrebbe fare per farlo girare anche nell'intestazione, senza togliere la protezione al file?

Grazie mille