Ændre Reg. Nr. i kolonne - flere steder i kolonnen

Bruger flg. kode til at erstatte et reg nr. på flere forskellige ark. Udgangspunkt var, at på ark 2 var værdien (Rg. Nr.) kun forekommende 1 gang, så det er koden "lavet" til. Reg. nr. forekommer flere gange, så hvorledes ændrer jeg koden til at ændre alle forekomster af samme Reg. Nr. i denne kolonne (B)?

Private Sub CommandButton1_Click()

    Sheets("Faktura").Select

'  Tjekke om der data i inputbokse
'
If ComboBox1.Text = "" Then
MsgBox "Gl. Reg. nr. mangler!"
ComboBox1.SetFocus
Exit Sub
End If

If TextBox1.Text = "" Then
MsgBox "Nyt Reg. nr. mangler!"
TextBox1.SetFocus
Exit Sub
End If

Rem Ark2
    erstatRække = findRække(Sheets(2), "B:B", Me.ComboBox1)
    If erstatRække > 0 Then
        Range("B" & erstatRække).Value = Me.TextBox1
    End If
   
Rem Ark3
    erstatRække = findRække(Sheets(3), "B:B", Me.ComboBox1)
    If erstatRække > 0 Then
        Sheets(3).Range("B" & erstatRække).Value = Me.TextBox1
    End If
   
Rem Ark8
    erstatRække = findRække(Sheets(8), "B:B", Me.ComboBox1)
    If erstatRække > 0 Then
        Sheets(8).Range("B" & erstatRække).Value = Me.TextBox1
    End If
   
    Me.CommandButton1.Enabled = False
    Unload Me
   
    UserForm8.Show
   
    Sheets("ArkFindEnBilResultat").Select

End Sub