Case en macro Excel

Select Case Altura
    
    Case Is < 140
        tipo = "bajito"
    
    Case Is < 170
        tipo = "mediano"
        
    Case Else
        tipo = "alto"
        
End Select