Changing date in excel tab hampering my macro. Can i use partial name?

[nbiancardo]

My macro opens a file and copies several tabs of data into another file. The problem is that there are dates associated with each tab that change daily. So Monday the tab is”VA1 30Aug11” and Tuesday it would be VA1 1Sep11”. Is there any way for the macro just to look for the “VA1” portion of the tab and ignore the rest? Their are 50 different tabs VA1, VA2, etc so changing their names would be too time consuming.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
<o> </o>
Many thanks,<o></o>
<o> </o>
Nick<o></o>

 

[Andrew Poulsom]

Welcome to MrExcel.

Maybe:

Dim ws as Worksheet
For Each ws in ActiveWorkbook.Worksheets
    If Left(ws.Name, 3) = "VA1" Then
'        Som code if True
    End If
Next ws

 

[lenze]

Hi and welcome to the board!!!!
Have you considered using the Code or Index Name in your macro as opposed to the Assigned Name? See my discussion here http://www.mrexcel.com/forum/showpos...95&postcount=6

lenze

 

[nbiancardo]

Forgive me if this seems obvious as I use macros alot, but without any real knowledge of it......just kind of trial and error.

The following is a portion of the macro i'm concerned with. I'm looking to have it read only the "T VA12 A" portion of the sheet name so that the following day when the name has changed to "T VA12 A 31Aug11" the macro will run without issue.....if you already answered that and I'm too computer illiterate to know it, well then I apologies!<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

Sheets("VA2").Select
Windows("IVA Trials.xls").Activate
Sheets("T VA12 A 30Aug11").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Dailyflows.xlsm").Activate
Cells.Select
ActiveSheet.Paste

 

[Andrew Poulsom]

Try replacing this:

Sheets("T VA12 A 30Aug11").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy

with:

Dim ws as Worksheet
For Each ws in ActiveWorkbook.Worksheets
    If Left(ws.Name, 8) = "T VA12 A" Then
        ws.Cells.Copy
        Exit For
    End If
Next ws

 

[nbiancardo]

Thanks so much...worked perfectly!!