this pseudo code might help:

Dim fname as String
Dim bk as Workbook
Dim rng as Range
fname = Application.GetOpenFileName( _
FileFilter:="Excel Files (*.xls),*.xls")
if fname = "False" then
' user hit cancel, exit sub
exit sub
end if
set bk = workbooks.Open(fname)
set rng = bk.Worksheets(1).Range("A1")
rng.CurrentRegion.copy _
thisworkbook.worksheets(1).Cells(rows.count,1).End (xlup)(2)

.. . .


bk.close SaveChanges:=False

--
Regards,
Tom Ogilvy

Can I get this written in a way where it draws out the data withou
opening the other workbook, it just automatically pulls certain cell
from the workbook while it is closed and displays them in the ne
workbook

--
SanctifiedRoc
-----------------------------------------------------------------------
SanctifiedRock's Profile: http://www.excelforum.com/member.php...fo&userid=3448
View this thread: http://www.excelforum.com/showthread.php?threadid=56080