I have an excel workbook with a nonmodal multipage form. I have a
little validatiion routine that looks to see if a textbox is filled in
on the previous tab when moving to the next. If it is not filled in it
is supposed to go back to that tab and that textbox.

I'll put the two parts of code below, but, the problem is that the
routine works on some computers and not others. I have checked the
references and there are none missing. Two of them are XP with office
XP installed. It works on one and not the other.

Does anyone have any ideas on this?

Thanks

The code:

First Part:

Public Sub setSubwayMap()

Rem First restore the labels to default color and size


Controls("L" & curstep).ForeColor = vbWhite
Controls("L" & curstep).Font.Size = 12


Rem - depending on Tab value set curStep- current step
Select Case tabs.Value
Case 0
curstep = "intro"
Case 1
curstep = "material"
Case 2
cmbDischType.SetFocus
curstep = "discharge"
Call MaterialValCheck...


Second Part the validation routine:

Private Sub MaterialValCheck()
If TxName.Text = "" Then
Beep
MsgBox "Material name must be filled in"
tabs.Value = 1
curstep = "material"
TxName.SetFocus
Exit Sub
End If
If TxCAS.Text = "" Then
Beep
MsgBox "CAS number must be filled in"
tabs.Value = 1
TxCAS.SetFocus
Exit Sub
End If
If PercSub.Text = "" Then
Beep
MsgBox "Percent material in product must be filled in"
tabs.Value = 1
PercSub.SetFocus
Exit Sub
End If
If PrtConc.Text = "" Then
Beep
MsgBox "Parts concentrate for working solution must be filled in"
tabs.Value = 1
PrtConc.SetFocus
Exit Sub
End If
If PrtWork.Text = "" Then
Beep
MsgBox "Parts Water to make up working solution must be filled in"
tabs.Value = 1
PrtWork.SetFocus
Exit Sub
End If
End Sub



Private Sub DischargeValCheck()
If Dur.Text = "" Then
Beep
MsgBox "Duration of discharge must be filled in"
tabs.Value = 2
Dur.SetFocus
Exit Sub
End If
If txDischQ.Text = "" Then
Beep
MsgBox "Total Discharge flow must be filled in"
tabs.Value = 2
txDischQ.SetFocus
Exit Sub
End If
If FacQ.Text = "" Then
Beep
MsgBox "Total facility flow must be filled in"
tabs.Value = 2
FacQ.SetFocus
Exit Sub
End If
End Sub