Dim Sh As Worksheet
Data = "aaa"
With USF.Controls("Frame" & 100).ComboBox105.Clear
For Each Sh In Worksheets
If InStr(1, UCase(Sh.Name), UCase(Data)) > 0 Then USF.Controls("Frame" & 100).ComboBox105.AddItem Sh.Name
Next Sh
Data = USF.Controls("Frame" & 100).ComboBox105.Value