Private Sub CommandButton1_Click()
aranan = TextBox1.Text
If aranan <> "" Then
For i = 2 To Worksheets.Count
If aranan = Worksheets(i).Range("A1").Value Then
Worksheets(i).Activate
Exit Sub
End If
Next i
End If
End Sub