Automated sheets naming

[kris82]

Hi,

my macro code:

Please Login or Register  to view this content.

Problem:
Iname can't be understood by Sheets(iname).Select. As you can see I tried to add special signs to simply read correct name, but VBA don't get it.

This code part is opening external file *.txt, which contains in column names, ie:
WIERSZ1
WIERSZ2
WIERSZ3
WIERSZ4
....

I would like to add sheets which names are as in external file. My idea was to open this file, read rows, create sheets and rename them. After that I would read to those worksheets data from other files I have and which names are: WIERSZ1.csv, WIERSZ2.csv, WIERSZ3.csv... but just wondering if this code is not too sophisticated and if there's no easier way to achieve the same result in few lines.
Thanks for help.

[walruseggman]

Iname can't be understood by Sheets(iname).Select.

Because you never actually named a sheet iname. Try something like:

Please Login or Register  to view this content.

Or whatever you're trying to have the sheets be named.

[kris82]

Because you never actually named a sheet iname. Try something like:

Please Login or Register  to view this content.

Or whatever you're trying to have the sheets be named.

Now Excel see problem in After:=Sheets(Sheets.Count)

[walruseggman]

My bad, should be in parenthesis:

Please Login or Register  to view this content.

[kris82]

My bad, should be in parenthesis:

Please Login or Register  to view this content.

Thank you. I solve issue by making sheet with names active and then:

Please Login or Register  to view this content.