go and check on spesific page and then run macro
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
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
|