Originariamente inviato da Moax
provo subitissimo, i 100 fogli sono tutti nello stesso file excel.
Ti faccio sapere, intanto grazie
Beh, allora la modifica e' semplicissima, basta cercare in tutti i fogli della workbook stessa:
codice:
   Private Sub CommandButton1_Click()
   Dim parola As String
   Dim i As Integer
   Dim s As Worksheet
   parola = UCase$(Trim$(Me.TextBox1.Text))
   For Each s In ActiveWorkbook.Sheets
      With s
         For i = 15 To 39
            If UCase$(Trim$(CStr(.Cells(i, 1)))) = parola Then
               UserForm2.TextBox1 = .Cells(i, 1)
               UserForm2.TextBox2 = .Cells(4, 1)
               UserForm2.TextBox3 = .Cells(5, 1)
               UserForm2.TextBox4 = .Cells(6, 1)
               UserForm2.Show
               Exit Sub
            End If
         Next
      End With
   Next
   MsgBox "NON TROVATA !"
End Sub