title: Select Case VBA empty cell
body: <p>So I have a code below for a select case loop around a set of cells with decimal values that give different results depending on the value of the input cell. I am trying to add a clause so that if one of the input cells is empty the result is also empty. </p>
  
  <p>This is my code :</p>
  
  <pre><code>    Sub JEeldepthoutlet()
      Dim score As Double, result As String
     Dim Rng As Range, i As Long
  
  i = 0
  
  With Sheets("Velocity_Depth")
      For Each Rng In .Range("B12:B16")
          score = Rng.Value
          Select Case score
      Case Is &gt;= 0.05
          result = "1"
      Case Is &gt;= 0.031
          result = "0.6"
      Case Is &gt;= 0.021
          result = "0.3"
      Case Is &gt;= 0
          result = "0"
          End Select
          .Range("Q31").Offset(i).Value = result
          i = i + 1
      Next Rng
  End With
  End Sub
  </code></pre>
  
  <p>I've tried to add the two following options, neither of which worked :</p>
  
  <pre><code>Case Else
  result ""
  </code></pre>
  
  <p>This just gave me a result of 0 if there was an empty cell </p>
  
  <p>I also tried </p>
  
  <pre><code>Case "" 
  Exit Sub
  </code></pre>
  
  <p>This also gave me a result of 0. </p>
  
  <p>Does anyone have any ideas? Thanks in advance</p>