How to Set WS = Sheet1 from unopened Workbook

[Big Lar]

My application C:\MyCompany\CheckForm.xls loads with:<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>

[FONT=Verdana]Private Sub UserForm_Activate()<o:p></o:p>[/FONT]
[FONT=Verdana] Dim iRow As Long<o:p></o:p>[/FONT]
[FONT=Verdana] Dim WS As Worksheet<o:p></o:p>[/FONT]
[FONT=Verdana]Set WS = Worksheets("Sheet1")[/FONT]

<o></o>
I want to access the data in Sheet1 without opening the entire application with all its Vba code and reports and other UserForms.<o></o>
<o></o>
So, if I move the data to a different workbook C:\MyCompany\Data.xls (Sheet1), how do I change the code?

And, isn't it a good idea to keep the data in a separate file/location?

 

[tweedle]

You need to add a workbook reference.

Private Sub UserForm_Activate()
 Dim iRow As Long
 Dim WB as Workbook
 Dim WS As Worksheet
Set WB = Workbooks.Open "C:\MyCompany\Data.xls"
Set WS = WB.Worksheets("Sheet1")

{your code}
WB.Close SaveChanges:=True|False 'when you're done