Hi, deepsi1,

please alter the code like this:
For lngCounter = 2 To lngLast
  blnPlus = False
  Select Case wsMaster.Cells(lngCounter, "E").Value
Ciao,
Holger