Tab Names and Wildcards


Posted by Sherry on February 15, 2002 4:38 PM

I need some help with a Macro. I have several (over 25) different spreadsheets that I am opening via a macro, looping through a folder, opening one by one.

That's the easy part, the hard part is that in each spreadsheet, there are multiple tabs. The tab that I need to pull in each sheet ends with the word UPL (for upload). For example, there's a tab called "Region 5 UPL" in the first spreadsheet, the second spreadsheet has a tab called "Region 6 UPL" and so on.

I need to tell the macro to select sheets containing the letters "UPL". Anyone know how to do that?? I tried Sheets.("*UPL*).Select but that does not work (I was hoping the * would represent a wildcard. Please help if you can. Thanks!!!!!!

Posted by Pandarus on February 15, 2002 5:09 PM


Dim ws As Worksheet
For Each ws In Worksheets
If Right(ws.Name, 3) = "UPL" Then
MsgBox ws.Name
End If
Next




Posted by Dave on April 22, 2002 3:33 AM


I'm trying to write a code which opens all files in a particular directory (actual number varies but, the file extensions are the same). You mentioned above that you can do this ("I have several (over 25) different spreadsheets that I am opening via a macro, looping through a folder, opening one by one")? if what you ment is that you have a line of code which opens all the files in a particular directory could you post the code please as i'm getting nowhere!

i've tried the whole:

workbooks.opentext filename:= "C:\Test\" & "*" & ".txt" [etc.]

idea but, to no avail.

Thanks,
Dave