Hi Jim

You can use this for example to select the workbook that you want to open
and do the things you want with this workbook.

Sub test()
Dim FName As Variant
Dim wb As Workbook
Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir

MyPath = ThisWorkbook.Path
ChDrive MyPath
ChDir MyPath

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")
If FName < False Then
Set wb = Workbooks.Open(FName)
MsgBox "your code"
wb.Close True
End If

ChDrive SaveDriveDir
ChDir SaveDriveDir

End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jim Heavey" wrote in message ...
I have some sample code which allows me to create a excel file and save it,
but I am looking for an example of how to open an existing excel file and
then add data to an existing sheet.

I have a book on order, but I need to get this started now.

Thanks in advance for your assistance!!