Dim dblNr As Double

dblNr = Cells(46, intSS)
     dblNr = Round(dblNr, 0)

Select Case dblNr
     Case 50 To 99
         shtName = "KF 50-100kPa"
     Case 100 To 199
         shtName = "KF 100-200kPa"
     Case 200 To 299
         shtName = "KF 200-300kPa"
     Case 300 To 399
         shtName = "KF 300-400kPa"
     Case 400 To 500
         shtName = "KF 400-500kPa"
     Case Else
         MsgBox "Out of range."
         Exit Sub
End Select

Sheets(shtName).Activate