VB Code Question - Input Box

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
Sub FixMissingData()

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

End Sub
 
Thanks!

PCLIVE said:
Sub FixMissingData()

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

End Sub
Click to expand...
 
Back
Top