left x amount of letters in a sheet foir macro

[maxzoran]

I am trying to set a worksheet that is imported in as:

SchedulerBoard124536

where the numbers after the SchedulerBoard are randomly generated. I'm thinking maybe using the left function to specify 14 characters? I'm not sure how to code it for the macro to only look for the text SchedulerBoard. Help is greatly appreciated

 

[Andrew Poulsom]

Like this?

MsgBox Left("SchedulerBoard124536",14)

 

[maxzoran]

here's my current code

Set shtSB = Sheets("SB")

Right now I'm having to rename SchedulerBoard1246545 (the number at the end is randomly generated) SB so the macro will recognize to pull data from that sheet. I would like to not have to rename the sheet and just have the macro look for the sheet that contains the text "SchedulerBoard" and ignore the numbers

 

[Andrew Poulsom]

Try:

Dim ws as Worksheet
Dim ShtSB as Worksheet
For Each ws in ActiveWorkbook.Worksheets
    If Left(ws.Name, Len("SchedulerBoard")) = "SchedulerBoard" Then
        Set ShtSB = ws
        Exit For
    End If
Next ws

 

[maxzoran]

Works great! Thanks!