I know I have used more than my allotted questions but I was wondering if you could tell me how to run this script automatically when I open the document. I have tried using
Private Sub Document_Open()
and also tried creating a macro named AutoOpen but have had no luck in getting it to run properly. I get an error associated with line #15 that reads:
Set oTbl = .Tables(1)

Any ideas?

Run-time error "5941"
The requested member of the collection does not exist.