Input boxes - writing entry to cell

I'm a total newbie to this. When the normal rate on the worksheet has to use
a substitute rate, I have an input box prompt for the substitute value. I
want the value to write to a certain cell to be used in a calculation. The
macro is doing what I want except writing the input value to the cell - H14.
What am I doing wrong?

ActiveSheet.Unprotect
Range("E14").Select
ActiveCell = "TTD Rate Override Applies"
myNum = Application.InputBox("Enter TTD Rate Override")
Range("h14").Select
ActiveSheet.Protect

Range("h14").Value = myNum

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Janet H" <JanetH@discussions.microsoft.com> wrote in message
news:233D95B9-12AB-4AAD-9FDE-3BA153892C47@microsoft.com...
> I'm a total newbie to this. When the normal rate on the worksheet has to
use
> a substitute rate, I have an input box prompt for the substitute value.
I
> want the value to write to a certain cell to be used in a calculation.
The
> macro is doing what I want except writing the input value to the cell -
H14.
> What am I doing wrong?
>
> ActiveSheet.Unprotect
> Range("E14").Select
> ActiveCell = "TTD Rate Override Applies"
> myNum = Application.InputBox("Enter TTD Rate Override")
> Range("h14").Select
> ActiveSheet.Protect
>

Hi Janet

Your code does not have the instruction to do what you want (input the
substitute value in cell H14). This code should take care of it:

ActiveSheet.Unprotect
Range("E14").Select
ActiveCell = "TTD Rate Override Applies"
myNum = Application.InputBox("Enter TTD Rate Override")
Range("h14") = my Num
ActiveSheet.Protect

Thanks
Karthik Bhat
Bangalore