Many thanks, solved the problem - I dont think I would of ever found the
solution myself.

"Bernie Deitrick" wrote:

Jim,

Something like:

Sub test()
Dim myCell As Range

Set myCell = Range("Numbers").Cells(Application.Match( _
Range("CellToMatch"), Range("Numbers"), False))
Cells(myCell.Row, 256).End(xlToLeft)(1, 2).Value = _
Application.InputBox("Enter the value")

End Sub


Assumes that your range with the numbers 1 to 75 are in a range named
"Numbers" and your value to match is in a cell named "CellToMatch"

HTH,
Bernie
MS Excel MVP

"jim hardwick" <jim wrote in message
...
I'm trying to convert an old macro from Lotus 123 to excel and am having
some
difficulty.

What I want to do is look at the data (which is a number 1-75) in a
specific
cell and match it from a range (rows labelled 1-75), then goto the matched
cell in the range and search column by column until it finds a blank one.
Then input the data from a input box into the blank cell.

The problems I am having are getting the macro to activate the matched
cell,
search and then input the data to the sheet (I've got the input box to
come
up).

Please Help Me