ændring af makro

hej

jeg har nedenstående makro:
Sub MPRN()
Dim mprNr As String, antalRæk As Long, ræk As Long
    ActiveSheet.Unprotect "hunter55"
   
    antalRæk = Cells(Rows.Count, "A").End(xlUp).Row
    For ræk = antalRæk To 1 Step -1
        If InStr(Range("A" & ræk), "MPRN") = 1 Then
            mprNr = "MPRN" & Format(Mid(Range("A" & ræk), 6) + 1, "0000")
            Range("A" & antalRæk + 1).Select
            ActiveCell = mprNr
            ActiveCell.Font.Color = vbRed
            Range("A" & antalRæk + 1).Select
           
            ActiveSheet.Protect "hunter55"
            Exit Sub
        End If
    Next ræk
End Sub

jeg vil gerne have den ændret til at skrive PCB i stedet for MPRN og troede at jeg bare kunne rette det til, men den virker ikke så.....nogen der kan hjælpe ?