Access Dynamic Array from ThisWorkBook to Sheet1

Dear All,
I'm a new member here. Nice to meet you all.

I have a trouble. I want to copy the column B to a dynamic array called ShipCode each I open the workbook, so I create Private Sub in "ThisWorkbook" like this.

Please Login or Register  to view this content.

Then, I want to access the "ShipCode" array in Sheet1 Macro. For example, I'm trying to copy all element of ShipCode to column Q like this.

Please Login or Register  to view this content.

When I run "try" in Sheet1, the error comes. It said that: "Sub or Function not defined". So what I have to do? I want to access the "ShipCode" array in Sheet1 macros. Please, I need your help. Thanks before.