I needed to modify StkCol to get the right column.
Thanks very much.

"Tom Ogilvy" wrote:

I don't see a problem with it. Are you sure you are using the right column
to get the last row value:

mnextrow = Cells(Rows.Count, StkCol).End(xlUp).Row + 1


does the value of StkCol check the right column.

concept tested in xl2003
--
Regards,
Tom Ogilvy





"Dave" wrote:

I have used InputBox to enter data in a visible cell without a problem but it
doesn't work when the cell is in a hidden column. (See code below)

QtyCol = Range("Rpt_Qnty").Column
mnextrow = Cells(Rows.Count, StkCol).End(xlUp).Row + 1
ip = InputBox("Enter Quantity", "Quantity")
Cells(mnextrow, QtyCol).Value = ip

How can I use similar code to enter a value into a cell in a hidden column?
Thanks.