Try this

Application.OnTime dtmSave, "'" & ThisworkBook.name "'!Save_Exit oExec"


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"ina" <roberta.inalbon@gmail.com> wrote in message
news:1147769547.619726.306180@u72g2000cwu.googlegroups.com...
> Hello guys I have a problem with workbook_open this workbook_open. When
> Excel open this workbook needs to open an external program, execute
> code, delete macro, save it, close external program, close excel
>
> but I have problem because it is not recognize the save_Exit function
>
>
> Public Sub Workbook_Open()
> ' ************
> ' Variables
> ' ************
> Dim dtmTime As Date
> Dim dtmSave As Date
> Dim oExec As Object
>
>
> ' ************
> ' Call function OpenPHObject
> ' ************
> Set oExec = OpenPHObject()
>
> ' ************
> ' Cursor in clock shape
> ' ************
> Application.Cursor = xlWait
> DoEvents
>
> On Error Resume Next
> ' ************
> ' After seven seconds the macros has been launched
> ' ************
> dtmTime = Now + TimeValue("00:00:07")
> ' ************
> ' Open the sub in thisworkbook
> ' ************
> Application.OnTime dtmTime, "thisworkbook.operations"
> Application.Cursor = xlDefault
> Application.DisplayAlerts = False
> 'Sheets(Array("Read Me", "File Layout", "Index", "Quotes")).Copy
> ActiveWorkbook.SaveAs Filename:= _
> "C:\tet_1.xls", fileformat:= xlNormal, ReadOnlyRecommended:=False,
> CreateBackup:=False
>
> Application.DisplayAlerts = True
> ' ************
> ' Now + 7seconds + 30 seconds --> launch SAVEandEXIT and close PH
> (external program)
> ' ************
> dtmSave = dtmTime + TimeValue("00:00:30")
>
> Application.OnTime dtmSave, "thisworkBook.Save_Exit(oExec)"
> ' I have a problem here
> ' because it is not recognize the Save_Exit Sub
>
>
>
> End Sub
>
>
>
> Public Sub Operations()
>
> Sheet3.Activate
> Sheet3.ExecGetInfo
> Sheet4.Activate
> Sheet4.ExecGetExtra
>
> End Sub
>
> Public Sub Save_Exit(oExec As Object)
>
> Call ClosePHObject(oExec)
> SaveAsWithoutCode 'delete all macro
> Application.Quit
> ThisWorkbook.Close SaveChanges:=True
> End Sub
>