how to read workbook name and default while inserting a sheet.

[zensathish]

Hi All,

I am new to this forum and this is my first post.

I have multiple text files, which I am locating using

Application.ActiveWorkbook.Worksheets

once the text files are located, I open it using

 Workbooks.OpenText Filename:= _
        sFolder & "/CONTRACT" _
        , Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=True, OtherChar:="*", FieldInfo:= _
        Array(Array(1, 5), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True

after I open the files, I move it to the current excel (excel name MC9.xlsm) using

    Windows("CONTRACT").Activate
    Sheets("CONTRACT").Select
    Sheets("CONTRACT").Move After:=Workbooks("MC9.xlsm").Sheets(2)

Here the file name is hard coded as "MC9.xlsm". I need to know how to get the workbook name and assign it in the below code

Sheets("CONTRACT").Move After:=Workbooks("MC9.xlsm").Sheets(2)

Your support would be much appreciated.

Regards,
Zen.

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel...hile-inserting-moving-sheets.html#post5284348

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).