Funktion Variblen Name übernehmen!

Function txt_import(strName As String)
Dim strFolder As String
Dim strFilename As String
Dim wrsWorksheet As Worksheet
strFolder = ThisWorkbook.Path
strFilename = "\" & strName & ".txt"
Worksheet_suchen (strName)
Select Case strName
Case Is = "Optionen"
blnOptionenTXT = blnSearchResult
Case Is = "Sprache"
blnSpracheTXT = blnSearchResult
End Select
If blnSearchResult = False Then
'*** Eine neues Tabelenblatt wird erzeugt (mit dem Namen Sprache) ***'
Worksheets.Add
ActiveSheet.Select
ActiveSheet.Name = strName
'*** Daten aus dem txt File (Sprache.txt) wird importiert ***'
Workbooks.OpenText Filename:= _
strFolder & strFilename, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1))
Windows(strName & ".txt").Activate
Cells.Select
Selection.Copy
Application.DisplayAlerts = False
Windows("Probecard Tool Rev. 2.xls").Activate
Worksheets(strName).Cells(1, 1).Select
ActiveSheet.Paste
Windows(strName & ".txt").Activate
Application.CutCopyMode = False
Windows(strName & ".txt").Close
Application.DisplayAlerts = False
Windows("Probecard Tool Rev. 2.xls").Activate
Sheets(strName).Cells(1, 1).Select
Sheets(strName).Visible = xlVeryHidden
blnOptionenTXT = True
End If
End Function