title: VBA Userform posting data twice....sometimes
body: <p>I have a userform with a combobox on a sheet &quot;PostHistory&quot; that draws it's data from the &quot;Staff&quot; sheet.  When you press Add on the userform it's suppose to locate the name on the Staff Sheet and replace the date next to the name.  Occasionally, it will replace the date and the date next to the name below it. Using Excel 2016</p>
  <pre><code>Private Sub CommandButton7_Click()
  
  Application.ScreenUpdating = False
  Sheets(&quot;Staff&quot;).Visible = True
  Sheets(&quot;Engine&quot;).Visible = True
  
  Dim TargetRow As Integer
  Dim nameRange As Range
  
  Set nameRange = Sheets(&quot;Staff&quot;).Range(&quot;C3:C200&quot;)
  TargetRow = Sheets(&quot;Engine&quot;).Range(&quot;D3&quot;).Value
  
  Sheets(&quot;PostHistory&quot;).Range(&quot;B3&quot;).EntireRow.Insert Shift:=xlDown
  Sheets(&quot;PostHistory&quot;).Range(&quot;B3&quot;).Value = txt_date
  Sheets(&quot;PostHistory&quot;).Range(&quot;C3&quot;).Value = cb_staff
  Sheets(&quot;PostHistory&quot;).Range(&quot;D3&quot;).Value = txt_post
  Sheets(&quot;PostHistory&quot;).Range(&quot;E3&quot;).Value = txt_notes
  
  
  If (Augment.txt_date.Text) = &quot;&quot; Then
  GoTo Skip1
  ElseIf IsNull(Augment.txt_date.Value) = False Then
  End If
  
  For Each cell In nameRange.Cells
  If cell.Text = [cb_staff] Then
      cell.Offset(0, -1).Value = txt_date
  End If
  
  Next
  
  Skip1:
  
  Unload Augment
  
  Sheets(&quot;Staff&quot;).Visible = False
  Sheets(&quot;Engine&quot;).Visible = False
  Sheets(&quot;List&quot;).Visible = False
  
  Application.ScreenUpdating = True
  
  Augment.Show
  
  End Sub
  </code></pre>