Open input box when a worksheet is selected

[Ashleytaylor1702]

Hi,

Just wondering if anybody can help with my problem:

I would like an input box to open only when a certain worksheet is selected and then for that input box to put the value into cell E3

Thanks for any help

[Marc L]

Hi !

Within the worksheet module just use its Worksheet_Activate event …

[Ashleytaylor1702]

Thanks ive tried this but icant seem to get it to work? Getting "expected End sub error"

Private Sub Worksheet_Activate()
Sub InputBox_Example()

Dim i As Variant

i = InputBox("Please Enter Your Name", "Personal Information", "Type Here")

Range("E3").Value = i
End Sub

End Sub

[Fluff13]

It should be

Please Login or Register  to view this content.

Also please edit your post to put code tags around your code. The # icon in the reply/edit window

[Ashleytaylor1702]

Ok that works fine thanks for your help, Sorry about not putting code tags around my code

I have one final question in my input box I would like the [Default] value to be that of cell E3 is that possible?

Thanks

[Fluff13]

Use

Please Login or Register  to view this content.