Celleværdi til textbox

Prøv med
Ret tekstboksens navn til det rigtige.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("b2").Value = "B" Then
        TextBox1.Text = Range("a1").Value
    End If
End Sub

Koden skal være i arkets kodeark.

Tak jkrons, Jeg har ca 100 celler hvor dette skal gøres, B3 til txt3.text - B4 til txt4.text osv, hvis det er nødvendigt at skrive koden for alle cellerne i arkets kodeark, kan man skrive dem i forlængelse af hinamden? eller er der en nemmere måde?
Du har selvfølgelig svaret, pointene er selvfølgelig dine, håber bare jeg kan udnytte din viden :)