VB Code Question - Input Box

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
 
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
 
G

Guest

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...
 

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

Similar Threads

Can Vba workout if a selection is part of a group? 0
Cancel Input Box error 16
Input Box Macro Help 6
variable number of rows. 2
application user input 2
Cleanup this macro please 3
Insert 2 formatted rows at cursor location 7
Shifting rows down in a table 2

Top