I'm using the following to open and run a macro in word

wordApp.Documents.Open(MyDoc)
wordApp.Run("CatgTitle")
wordApp.save()

The Macro goes through each item in Column A and based on the properties
adjusts row hight, column width, font etc. also merges columns

this takes 40 mins for 4000 rows

Works fine if I run this from word using tools macro run

But if I execute it from VB with above code the column width are not set
correctly

because columns are merged I can't adjust the columns after running the
macro!

Any help would be appreciated