VB Code Question - Input Box

S

Stan

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
 
P

PCLIVE

Sub FixMissingData()

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

End Sub
 
S

Stan

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top