Finding Worksheet Name

[laurenbattaglia]

I have a workbook is a download from the web, that has named sheets in it. The sheet name has been changed on some of the downloads, so I need to be able to find either sheet name. I am trying to do something like the statement below, but I am having trouble with the syntax.


If Sheets.name <> fsBS Then
Sheets(fsBSN).Select
Else
Sheets(fsBS).Select

Any help would be appreciated.

 

[SkipVought]

laurenbattaglia,

you syntax is fine except use the Activate method.

sheet.activate

Also fsBS and fsBSN must contain valid sheet names.



Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[Zathras]

If I understand correctly, there are multiple sheets in the workbook, one of which is named either fsBSN or fsBS.

Assuming fsBS and fsBSN are not string variables but actual sheet names, then you can use this:
[blue]

  For Each wks In ActiveWorkbook.Sheets
    If wks.Name = "fsBS" Or wks.Name = "fsBSN" Then
      wks.Activate
    End If
  Next wks

[/color]
If they are variables, then omit the double-quote marks.

 

[MisterC]

It would be much better to be consistent. That said, if you have 2 possible sheet names (fsBS and fsBSN) this will activate the first sheet

    Dim mySheet As Worksheet
    For Each mySheet In ActiveWorkbook.Worksheets
        If mySheet.Name = "fsBS" Or mySheet.Name = "fsBSN" Then
            mySheet.Activate
            Exit For
        End If
    Next

 

[MisterC]

lol Zathras.... great minds and all that stuff

 

[laurenbattaglia]

Thanks!!! It worked perfectly.