try

Public Sub getdata()
Dim nextrow As Long
Dim entry1 As String, entry2 As String, entry3 As String
Dim entry4 As String
Dim rng As Range, rngF As Range


Do
nextrow = Range("A65536").End(xlUp).Row + 1
entry1 = InputBox("What is the HFC MAC?")
If entry1 = "" Then Exit Sub
Set rngF = Range("A:A").Find(entry1)
If rngF Is Nothing Then
entry2 = InputBox("What kind of modem is it?")
If entry2 = "" Then Exit Sub
entry3 = InputBox("Where is the modem?")
If entry3 = "" Then entry3 = "Shevled"
entry4 = InputBox("What's the status of the modem: Renting
Purchased or Pending ")
If entry4 = "" Then entry4 = "Pending"
Else
entry2 = InputBox("What kind of modem is it?", , Cells(nextrow
2))
If entry2 = "" Then Exit Sub
entry3 = InputBox("Where is the modem?", , Cells(nextrow, 3))
If entry3 = "" Then entry3 = "Shevled"
entry4 = InputBox("What's the status of the modem: Renting
Purchased or Pending ", , Cells(nextrow, 4))
If entry4 = "" Then entry4 = "Pending"

End If
Cells(nextrow, 1) = entry1
Cells(nextrow, 2) = entry2
Cells(nextrow, 3) = entry3
Cells(nextrow, 4) = entry4
Loop

End Sub


regard

--
tony
-----------------------------------------------------------------------
tony h's Profile: http://www.excelforum.com/member.php...fo&userid=2107
View this thread: http://www.excelforum.com/showthread.php?threadid=52590