Sub getdata()


FName = "\\Mascarolinabdc\puball\Newport Precision\" & _
"Spreadsheets\NPI PVD Log Sheet.xls"
Set databk = Workbooks.Open(Filename:=FName)

With databk

Item1 = .Sheets("maintenance 1").Range("A1").Value
Item2 = .Sheets("maintenance 2").Range("A1").Value
Item3 = .Sheets("maintenance 3").Range("A1").Value

End With
databk.Close

End Sub


" wrote:

I posted this today but I don't know if I was clear in what I was
asking.....
I need to put a cell value of an unopened excel sheet in a text box.
When I open outlook a user form automatically comes up with a bunch of
text boxes that I need filled with certain cells (they are formulas).

The cells are in the following excel sheet

\\Mascarolinabdc\puball\Newport Precision\Spreadsheets\NPI PVD Log
Sheet.xls
The sheets are "maintenance 1", "maintenance 2", and "maintenance 3"