Hi
Using a worksheet open, or sheet activate, autoexec macro
or some other event, enter the following.
If IsEmpty(Range("c3")) Then
Do
getit = InputBox("what data is going into cell
C3", , "Something")
Loop Until Len(getit) > 0
Range("c3").Value = getit
End If
Tony