Private Sub CommandButton3_Click()

Dim Mynumber As String
Dim j As Long
Mynumber = UserForm1.TextBox1.Text
aa = ActiveSheet.Index
If Len(Mynumber) = 0 Then Exit Sub
Mynumber = "*" & Mynumber & "*"
gyo = ActiveCell.Row - 1
Worksheets(aa).Activate

For j = gyo To 2 Step -1
With Cells(j, 2)
If .Value Like Mynumber Then
.Activate
Exit Sub
End If
End With
Next j

aa = aa + 1

Do While aa <= ThisWorkbook.Worksheets.Count

Worksheets(aa).Activate

Range("B3").Select
Mynumber = UserForm1.TextBox1.Text
If Len(Mynumber) = 0 Then Exit Sub
Mynumber = "*" & Mynumber & "*" '部分一致検索
For j = Cells(3, 2).End(xlDown).Row To 2 Step -1
If j < 3 Then
aa = aa + 1
Exit For
Else
With Cells(j, 2)
If .Value Like Mynumber Then
.Activate
Exit Sub
End If
End With
End If
Next j
Loop
MsgBox "一致データはありません"
End Sub