Is it possible to pass arguments to a macro using "OnTime"?

[Glory]

Eg:

Sub Test()
 
b7 = ThisWorkbook.Path & ThisWorkbook.Name
 
Application.OnTime Now + TimeValue("00:00:02"), "Reopen(" & b7 & ")"
ThisWorkbook.Close SaveChanges:=True
 
End Sub
 
Public Function Reopen(Path, Workbook)
'==================================================
'Update 01: Reopens workbook after creation of new sheet
'Variable   Purpose
'i1         Workbook and Path
'==================================================
 
i1 = Path & Workbook
 
Workbooks.Open i1
 
End Function

This fails because the application looks for a macro named literally "Reopen(Workbook.Path & Workbook.Name)".

Is there a way to pass arguments to a macro using this method?

 

[Jaafar Tribak]

Glory,

Unless you absolutely need this to be fully automated , why not ask the user to check the security setting themselves at the start of your routine ?

Something along these lines to make life easier for them :

Sub Test()

    If Not TrustVBA Then
        With Application
        .SendKeys "t"
        .CommandBars.FindControl(id:=3627).Execute
        End With
    End If
    
    'rest of your code...
    
End Sub

 

[Glory]

Jaafar: I only had to worry about using OnTime because of an OLE issue caused by trying to mess with VBA trust access settings.

I only had to mess with trust access because I needed to be able to insert code into a sheet.

I only needed to insert code into a new sheet because I had to make new buttons work (using a method I had found myself and could easily understand).

I only had to make new buttons work because new query tables named the same as old querytables which had already been deleted would have "_1" appended to the end of their name.

The only way to fix the problem with the new query tables was to delete and recreate the sheet, along with the buttons and the tables... which caused all of this.

I've fixed the root problem and all the rest went up like smoke.

http://www.mrexcel.com/forum/showthread.php?t=549541&page=2

Thanks for your help... both of you. I really appreciate the effort.