Hi again,
Thanks for your help. I think we are getting close!
The Save As screen now comes up but I still get a debug - RunTime erro
1004 surrounding wkb.SaveAs gsGetFilename. !
Sub SaveMe1()
Set wkb = Workbooks.Add
ThisWorkbook.Sheets("EAR").Copy Befo=wkb.Sheets(1)
Application.DisplayAlerts = False
For i = wkb.Sheets.Count To 2 Step -1
' Delete all but the 1st sheet
wkb.Sheets(i).Delete
Next i
Application.DisplayAlerts = True
wkb.SaveAs gsGetFilename
wkb.Close
End Sub
Public Function gsGetFilename(Optional rsInitialPathFName _
As String = vbNullString) As String
Dim vPath As Variant
vPath = Application.GetSaveAsFilename(rsInitialPathFName, _
"Microsoft Excel Files (*.xls), *.xls")
If vPath < False Then gsGetFilename = CStr(vPath)
End Function
Any ideas?
Thanks
Andre
--
ajw15
-----------------------------------------------------------------------
ajw150's Profile:
http://www.excelforum.com/member.php...nfo&userid=802
View this thread:
http://www.excelforum.com/showthread.php?threadid=38907