Hi All

I have prepared the code for the worksheet as follows. This code converts
the text to upper case format from any cell of the worksheet. Also it checks
for the specific text as well. This code works fine for all columns and rows
in the worksheet.
But I want to apply this code to column B only instead of whole worksheet.
Means whatever I will type in Column B should be changed to Uppercase and
also check for particular text, for example QUARTZ and SODA LIME.

Any help would be greatly appreciated.
Kind Regards
Harish

Private Sub Worksheet_Change(ByVal Target As Range)
       
   If Target.HasFormula = True Then
       Exit Sub
   End If
   If Target.Cells.Count > 1 Then
       Exit Sub
   End If
   Application.EnableEvents = False
   Target.Value = UCase(Target.Text)
   If Target.Value = "QUARTZ" Or Target.Value = "SODA LIME" Then
   
       Else
           MsgBox "Check the Spell"
           Target.Select
   End If
   Application.EnableEvents = True
   
End Sub