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