silly vba problem

[erivien]

hmm, i have a problem. i have a userform with a text box named 'vId'
when the form initialises i would like the vid to be given a value from an excel sheet.
the code so far:

Dim vId As Integer, shtView As Worksheet
Set shtView = Application.Workbooks("system.xls").Worksheets("view")

i just need the bit of the code to change the vId value... to the cell a1
everything i try throws an error!

help is appreciated with this

 

[SIXTH SENSE]

hi!
how about this!

Private Sub UserForm_Initialize()
Dim vId As Integer, shtView As Worksheet
Set shtView = Application.Workbooks("system.xls").Worksheets("view")
Vid=shtview.range("a1").value

End Sub

 

[erivien]

thanks it workin now

 

[SIXTH SENSE]

hi!
is the workbook you are refering too is not the active workbook? or is it a close workbook?
It works for me fine!