Excel 2003 Vba Schleife über Matrix

Hallo liebes Forum!Gut das es schon Donnerstag ist!

Ich habe folgendes Problem.Ich will um eine Übersetzung in meinem Tool anzulegen Zellen mit dem TranslationTable sheet verknüpfen! Dazu möchte ich eine Schleife benutzen,
die diesen Bezug für mich in die jeweilige Zelle schreibt. Ich habe schon einen funktionierenden Code gebastelt, der allerdings nur über eine Spalte läuft. Ich würde aber gern, dass die Spallte von B1 bis Z 200 läuft. Vielleicht kann ja jemand den Code so anpassen, dass es geht.

Sub Bezug()

Dim i

For i = 1 To 200

Sheets("ProjectStructure").Select
Range("D" & i).Select

If ActiveCell.Value = "Mr/s" Then
ActiveCell.Value = "='Translation Table'!A159"
End If
If ActiveCell.Value = "First Name" Then
ActiveCell.Value = "='Translation Table'!A160"
End If
If ActiveCell.Value = "Surname" Then
ActiveCell.Value = "='Translation Table'!A161"

End If

Next i


End Sub

 For a = 66 To 90
    For i = 1 To 200
        Range(Chr(a) & i).Select
          ' hier deine IFs rein.....  
    Next i
 Next a

For Each Zelle In Range("B1:Z200")

Sheets("ProjectStructure").Select  
Range("D" & i).Select  

If ActiveCell.Value = "Mr/s" Then  

With Sheets("ProjectStructure").Range("D" & i)  
    If .Value = "Mr/s" Then  
    ....
End With

With Sheets("ProjectStructure").Cells(i, "D")

With Sheets("ProjectStructure").Cells(i, 4)

Select Case .Value
Case "Mr/s"  
    .Value = "='Translation Table'!A159"  
Case "First Name"  
    .Value = "='Translation Table'!A160"  
Case "Surname"  
    .Value = "='Translation Table'!A161"  
End Select