Anyone can help in VBA ?

If i understand you well, you want to use Select Case ... End Select statement.

Select case ws.Name
    Case "Sheet1"
        'do something
    Case "Sheet2"
        'do something
    Case "Sheet3"
        'do something
    Case Else
        'do something
End Select

 
But if would like to go through the collection of worksheets to "find" the correct one by its name, better use something like this:

Function GetWoksheet(wshName As String, wbk As Workbook) As Worksheet
Dim wsh As Worksheet
 
On Error Goto Err_GetWoksheet
 
Set wsh = wbk.Workseets(wshName)
 
Exit_GetWoksheet:
    Set GetWoksheet = wsh
    Exit Function
 
Err_GetWoksheet:
    MsgBoxErr.Description, vbExclamation, Err.Number
    Set wsh = Nothing
    Resume Exit_GetWoksheet
 
End Function

 
Usage:

Set wsh =  GetWoksheet("Sheet4", ActiveWorkbook)