Sub TestChooseActivity()
Debug.Print ChooseActivity(25)
Debug.Print ChooseActivity(34)
Debug.Print ChooseActivity(35)
Debug.Print ChooseActivity(65)
Debug.Print ChooseActivity(66)
Debug.Print ChooseActivity(75)
Debug.Print ChooseActivity(95)
End Sub
Function ChooseActivity(Temperature As Integer) As String
Dim sActivity As String
Select Case Temperature
Case Is < 32
sActivity = "S"
Case 33, 35 To 45
sActivity = "H"
Case 34
sActivity = "S"
Case 46 To 50, 65, 70 To 72
sActivity = "C"
Case 75 To 80
sActivity = "G"
Case 80 To 100
sActivity = "W"
Case Else
sActivity = "T"
End Select
ChooseActivity = sActivity
End Function