accept input and move active cell?
Thanks for your reply.
Unfortunately I received a syntax error during the complie process so I
don't know where this leaves me.
Thanks again for theresponse
" wrote:
'Try this, place the code in the sheet module, view it by right click
'at sheets tab and choose "view code" :
Private Sub Worksheet_Activate()
Dim InputData As String
Application.Goto Reference:=Range("B2") ' go to B2 on open sheet
'accept data entry
Application.Goto Reference:=Range("C4") 'Go to C4, accept data
InputData = InputBox("Promt to input", "Please input your data",
"")
Range("E4").Value = InputData 'Retrieve InputData value to range E4
End Sub
|