Hi guys,

Does anyone know of a way to automatically run a macro on open once
only? i.e. A user opens an excel worksheet, a macro is run prompting
them for some information, they save the file, re-open it however this
time it does not prompt for the questions? Please see below for my
macro. Any help would be greatly appreciated.


Sub Project()

Dim inputvar As String
Dim inputvar2 As String
Dim inputvar3 As String

inputvar = InputBox("Please Enter the Project Name?")
Range("b1") = inputvar

inputvar2 = InputBox("Please Enter the Start Date")
Range("b7") = inputvar2

inputvar3 = InputBox("Please Enter the Location")
Range("b8") = inputvar3

End Sub

*** Sent via Developersdex http://www.developersdex.com ***

Hi David,

When you open the VBA editor, double click on ThisWorkbook in the project
explorer and paste this macro in there. It does run each time the workbook is
opened but after the data is in the cells it does not do anything and the
user would be unaware of it.

Private Sub Workbook_Open()
Dim inputvar As String
Dim inputvar2 As String
Dim inputvar3 As String

'Use code name for 1st sheet and this name does not
'change even if the sheet name is changed by user.
Sheet1.Select

If Range("B1") = "" And Range("B7") = "" And Range("B8") = "" Then
inputvar = InputBox("Please Enter the Project Name?")
Range("b1") = inputvar

inputvar2 = InputBox("Please Enter the Start Date")
Range("b7") = inputvar2

inputvar3 = InputBox("Please Enter the Location")
Range("b8") = inputvar3
End If
End Sub


Regards,

OssieMac

"David Andrews" wrote:


Hi guys,

Does anyone know of a way to automatically run a macro on open once
only? i.e. A user opens an excel worksheet, a macro is run prompting
them for some information, they save the file, re-open it however this
time it does not prompt for the questions? Please see below for my
macro. Any help would be greatly appreciated.


Sub Project()

Dim inputvar As String
Dim inputvar2 As String
Dim inputvar3 As String

inputvar = InputBox("Please Enter the Project Name?")
Range("b1") = inputvar

inputvar2 = InputBox("Please Enter the Start Date")
Range("b7") = inputvar2

inputvar3 = InputBox("Please Enter the Location")
Range("b8") = inputvar3

End Sub

*** Sent via Developersdex http://www.developersdex.com ***