VB Code Question - Input Box
 

I'm trying to use an input box to add some data to cell N4 although after
entering the value in the input box, the cell is still blank. Can someone
help out a rookie code writer? Many thanks!

Sub FixMissingData()

Range("M4:O4").Select
Selection.Insert Shift:=xlDown
Range("M4").Select
ActiveCell.FormulaR1C1 = "Overtime"
Range("N4").Select
InputBox ("Enter Overtime")

End Sub

VB Code Question - Input Box
 

Sub FixMissingData()

Range("M4:O4").Select
Selection.Insert Shift:=xlDown
Range("M4").Select
ActiveCell.FormulaR1C1 = "Overtime"
Range("N4").Value = InputBox ("Enter Overtime")

End Sub



"Stan" wrote in message
...


I'm trying to use an input box to add some data to cell N4 although after
entering the value in the input box, the cell is still blank. Can someone
help out a rookie code writer? Many thanks!

Sub FixMissingData()

Range("M4:O4").Select
Selection.Insert Shift:=xlDown
Range("M4").Select
ActiveCell.FormulaR1C1 = "Overtime"
Range("N4").Select
InputBox ("Enter Overtime")

End Sub

VB Code Question - Input Box
 

Thanks!

"PCLIVE" wrote:

Sub FixMissingData()

Range("M4:O4").Select
Selection.Insert Shift:=xlDown
Range("M4").Select
ActiveCell.FormulaR1C1 = "Overtime"
Range("N4").Value = InputBox ("Enter Overtime")

End Sub



"Stan" wrote in message
...


I'm trying to use an input box to add some data to cell N4 although after
entering the value in the input box, the cell is still blank. Can someone
help out a rookie code writer? Many thanks!

Sub FixMissingData()

Range("M4:O4").Select
Selection.Insert Shift:=xlDown
Range("M4").Select
ActiveCell.FormulaR1C1 = "Overtime"
Range("N4").Select
InputBox ("Enter Overtime")

End Sub