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

You can add a with statement and put a period infront of the cell references

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


with sheets("inputpage")
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 with
End Sub


"pswanie" wrote:

> 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
>
>