Sub main()
With Worksheets(GetSheetName(Range("D:D").Value, Range("F:F").Value))
MsgBox .Name
End With
End Sub
[code]
[code]
Function GetSheetName(val1 As String, val2 As String) As String
Select Case GetRank(UCase(val1)) - GetRank(UCase(val2))
Case Is < 0
GetSheetName = "GOLD"
Case Is > 0
GetSheetName = "Platin"
Case Else
GetSheetName = val1
End Select
End Function
[code]
[code]
Function GetRank(val As String) As Long
GetRank = Application.WorksheetFunction.Match(val, Array("Bronze", "Silver", "Gold", "Platin", "PlPlus", "Ambass"))
End Function
Function GetRank(val As String) As Long
GetRank = Switch(val = "BRONZE", 0, _
val = "SILVER", 1, _
val = "GOLD", 2, _
val = "PLATIN", 3, _
val = "PLPLUS ", 4, _
val = "AMBASS", 5)
End Function
[code]
[code]
Function GetRank(val As String) As Long
Select Case val
Case "BRONZE"
GetRank = 0
Case "SILVER"
GetRank = 1
Case "GOLD"
GetRank = 2
Case "PLATIN"
GetRank = 3
Case "PLPLUS"
GetRank = 4
Case "AMBASS"
GetRank = 5
End Select
End Function