When was a macro ran?

[goofy78270]

Is it possible to test when the last time a macro was ran?

 

[Lewiy]

At the beginning of your macro, put something like:

Range("A1") = Now

Then cell A1 will show the last time that the macro was run.

 

[Smitty]

You can add a timestamp in the code.

I.E. Range("IV65536").Value = Now

You can also capture the user.

HTH,

Smitty

 

[Oorang]

I do not know of a way to test when macro ran unless you make the macro log that information. Here is how to do so:

Option Explicit
Sub Test()
    LogRun "Test"
End Sub
Sub LogRun(MacroName As String)
    Const TristateTrue As Long = -1
    Const ForAppending As Long = 8
    Const sMSScriptingRuntime_c As String = "Scripting.FileSystemObject"
    Const sLogPath_c As String = "C:\Test\maclog.txt"
    Const sUserName_c As String = "USERNAME"
    Const sComputerName_c As String = "COMPUTERNAME"
    Dim oFSO As Object
    Dim oTS As Object
    Set oFSO = VBA.CreateObject(sMSScriptingRuntime_c)
    Set oTS = oFSO.OpenTextFile(sLogPath_c, ForAppending, True, TristateTrue)
    oTS.WriteLine VBA.Now & vbTab & MacroName & vbTab & VBA.Environ$(sUserName_c) & vbTab & VBA.Environ$(sComputerName_c)
    oTS.Close
End Sub