Activate a certain sheet with wildcards

[elmnas]

Hello people,

I have got an Excel workbook that contains following sheets and names:

Kalle_Statistik
2015_04_17_NewPrices
Kalle Penta_2015_04
Kalle_LanguageCombs
Kalle_Row_One

I need a script that activate following sheet:

Kalle_Penta_2015_04

the number xxxx_xx can be any combination based on date.


Could someone help me?


Thank you in advance


Daniel

 

[Michael M]

maybe this

Sub MM1()
Dim ws As Worksheet
For Each ws In Worksheets
If InStr(ws.Name, "Kalle Penta") Then ws.Activate
Next ws
End Sub

 

[elmnas]

is there any other way to do it?
the problem comes, when i activate the different sheet sheets, to copy data from one the "Kalle Penta"

 

[elmnas]

actually it doesnt work your function its not safe.

 

[Michael M]

What do you mean

your function its not safe.