Hi saziz

You have pNbr defined as range
Dim pNbr As Range
Probably should be
Dim pNbr As Long