title: Check if cell is blank, then show the value of adjacent cell in userform textbox
body: <p>First time posting here.</p>
  <p>I need some help!</p>
  <p>So I am trying to create a loop upon initialization of user form. Basically when I click the user form, the text box on top will show the name of the person with a blank adjacent cell</p>
  <pre><code>Private Sub UserForm_Initialize()
  
      Dim i As Long
      Set wb = ThisWorkbook.Sheets(&quot;Sheet1&quot;)
  
      With wb
      
      i = 2
  
      Do Until IsEmpty(Cells(i, 2).Value) = False
  
          'Check if cell i, 2 is blank (in this case Range B2 is blank so code will proceed)
  
          If IsEmpty(Cells(i, 2).Value) = True Then
      
              'Get value of adjacent cell and place in text box
              Textbox1.Value = Sheets(&quot;Sheet1&quot;).Cells(i, 1).Value
              'value is name of person with blank adjacent cell value
  
          End If
      
          i = i + 1
          
  
      Loop
  
      'code will loop until there is no longer any blanks in column B
      End With
  End Sub
  </code></pre>
  <h2>Range B2 is blank</h2>
  <p><img src="https://i.stack.imgur.com/I9NGo.png" alt="Range B2 is blank" /></p>
  <h2>Range A2 should be value of text box</h2>
  <p><img src="https://i.stack.imgur.com/IlGOa.png" alt="Range A2 should be value of text box" /></p>