Annyit javítottam, hogy:
For Each objField In Selection.Range.FormFields

Különben, gyanítottam, hogy a keretes elrendezés okozhat galibát, de egyből nem jöttem rá, mert kölcsönkód. :-)