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 ***
>
Similar Threads
