Hi,
I use this code to load and parses a test file it can have any name
Workbooks.OpenText FileName:= _
ThisWorkbook.Path & "\Input\" & FileName, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
Semicolon:=False, _
Comma:=True, Space:=False, Other:=False,
FieldInfo:=Array(Array(1, 1), _
Array(2, 4), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),
Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 4))

The worksheet name is need for the next step. So I have two questions
1. can I get the name from the workbook I have just opened
2. are there a simple set of rules to get from the file name to sheet name

i.e.

Text File Name Worksheet Name
GLOBALM_MDFF_19981108.I080 GLOBALM_MDFF_19981108
INTEGM_WPWF_PRUD_20060121.I474229 INTEGM_WPWF_PRUD_20060121.I4742
AextrasandabitGLOBALM_MDFF_19990116.I056

AextrasandabitGLOBALM_MDFF_1999

Thanks MarkS