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