Hi jstrater
Try something like this
Sub test()
Dim MyPath As String
Dim SaveDriveDir As String
Dim FileToOpen As Variant
SaveDriveDir = CurDir
MyPath = Application.TemplatesPath
ChDrive MyPath
ChDir MyPath
FileToOpen = Application.GetOpenFilename("Excel Templates (*.xlt),*.xlt")
If FileToOpen < False Then
Sheets.Add Type:=FileToOpen
End If
ChDrive SaveDriveDir
ChDir SaveDriveDir
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl
"jstrater" wrote in message ...
I do this all the time by right clicking on a sheet tab and selecting a template in the Insert Sheet dialog. But I don't see a
way to do this from code. The Sheets and Worksheets.Add method doesn't have a place to specify a template file name, and I don't
see any other methods for doing this. Is this just a glaring omission, or am I missing something? I'm using Excel XP (and
sometimes Excel 97)
---
James