title: Preventing duplicates in a column regardless of the case of the entry
body: <p>I type three entries in specific cells 
  [A2,B2,C2] and run code to take this data to the first empty row in a table.</p>
  
  <p>The code also prevents duplicates based on the entered value in cell B2. If it already exists in the range (B2:B5000) it prevent duplicates.</p>
  
  <p>The problem is it does not ignore the case.</p>
  
  <p>For example:<br>
  I enter value "Acetic Acid"<br>
  After awhile I add "acetic Acid" or change any letter case.  </p>
  
  <p>The code adds it normally without preventing.</p>
  
  <p>How do I ignore the letter case?</p>
  
  <pre><code>Sub tarheel()
  LastRow = Range("A10000").End(xlUp).Row + 1
  LR = Range("b10000").End(xlUp).Row + 1
  For r = 5 To LR
      If Cells(r, 2) = Range("b2") Then MsgBox "This Item Name already exist, No shift will done": Exit Sub
  Next
  Cells(LastRow, 1).Value = Range("A2").Value
  Cells(LastRow, 2).Value = Range("B2").Value
  Cells(LastRow, 3).Value = Range("C2").Value
  Range("A2:C2").Select
  Selection.ClearContents
  Range("A2").Select
  
  End Sub
  </code></pre>