Dim cell as Range
ActiveSheet.Unprotect
for each cell in Range("B63:B50")
cell.Select
ActiveCell = "x"
mynum = Application.InputBox("Payment including Adj")
Cells(cell.row,"J").Value = mynum
mynum = Application.InputBox("Enter total overpayment remaining")
cells(cell.row,"k").Value = mynum
Next
ActiveSheet.Protect

--
Regards,
Tom Ogilvy

"Janet H" wrote in message
...
The input box routine below does exactly what I want it to - but only on
the
first line. I want to modify it so it works on every row. The cell
references
of b, j & K remain the same but the line reference varies. How do I set it
up
so it knows what line it's on?

I'm a newbie so some extra explanation is helpful. Thanks!

ActiveSheet.Unprotect
Range("b63").Select
ActiveCell = "x"
mynum = Application.InputBox("Payment including Adj")
Range("j63").Value = mynum
mynum = Application.InputBox("Enter total overpayment remaining")
Range("k63").Value = mynum
ActiveSheet.Protect