thanx bob ur code works...

but now how do i change it to go and check on sheet named "inputpage" for
row a and b?

im going to put a cmdbutton on about 10 or 12 sheets and need this macro to
then go and check on the "inputpage" for that word/number combination

and where do i tell it to a macro called editsheet if the number enterd is
correct?



much appreciated






Sub Test()
Dim mpRow As Long
Dim mpWord As String
Dim mpResult As Double

mpRow = Int(Rnd() * 25 + 1)
mpWord = Cells(mpRow, "A").Value

On Error Resume Next
mpResult = InputBox("provide a number for " & mpWord)
On Error GoTo 0
If mpResult < 0 Then

If mpResult < Cells(mpRow, "B").Value Then

MsgBox "Wrong"
Else

Cells(mpRow, "A").Value = ""
End If
End If
End Sub