start Excel macro automatically

[sunnywink]

Hi all,

I constructed an excel file recently with macro properties. Does anyone know how to enable the macro to run automatically whenever the file the opened?

Many thanks in advance.

 

[VBslammer]

You need to call the macro from the workbook's Open() event:

'@---------- Workbook Module ------------@

Private Sub Workbook_Open()
  Call GetFileName
End Sub



'@-------------- Module 1 ---------------@

'Macros

Sub GetFileName()
  Dim strTitle As String
  
  strTitle = InputBox("Enter Workbook Name:", "Title", "")
  
  If Len(strTitle) > 0 Then
    ActiveWorkbook.SaveAs strTitle & ".xls"
  End If
End Sub

VBSlammer

Unemployed in Houston, Texas