A acw Feb 23, 2004 #2 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
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