'Трябва да ги сложи в ComboBox3 taka:
'ComboBox3.addItem "sk_materials"
'ComboBox3.addItem "sk_stocks"
'......
'.....


Private Function addSkSheetsToComboBox3()
    Dim ws As Worksheet ', sheetName As String
    For Each ws In ThisWorkbook.Worksheets
        'InStr(...) намира позицията, на която "sk_" присъства в името на шийта
        'Ако позицията е 1, значи иметп на шийта почва със "sk_"
        If InStr(1, ws.Name, "sk_") = 1 Then
            ComboBox3.addItem ws.Name
        End If
    Next ws
End Function