VBA i word

Sætter gul baggrundsfarve i rækken:

Private Function klargørIndhold(ræk, kol)
Dim tekst1, tekst2
        tekst1 = Tables(1).Cell(ræk, kol)
        tekst2 = Left(tekst1, Len(tekst1) - 2)
        Tables(1).Rows(ræk).Select
        Selection.Shading.BackgroundPatternColorIndex = wdYellow
        klargørIndhold = tekst2
End Function

Ja, det gør den rigtig nok, men nu udfylder den ikke tallene længere.
"klargørIndhold" bliver også kaldt mange gange, så man er ved at få et epileptisk anfald når man trykker på macrobutton. Kan man lave det i en funktion for sig, så den kun kører en gang?

Det virker hvis jeg flytter

Tables(1).Rows(ræk).Select
Selection.Shading.BackgroundPatternColorIndex = wdYellow

til

Public Sub A_udfyld()
    Tables(1).Rows(2).Select
    Selection.Shading.BackgroundPatternColorIndex = wdYellow
    udfyldBM 1
End Sub

Kan det gøres smartere?

Kunne du ikke sende filen til mig - @-adresse under min profil - så skal jeg se hvad der kan gøres..

#4: Det ville jeg gerne, men jeg tror ikke jeg må dele ud af den.

Det virker fint at flytte den ny kode op i "Public Sub A_udfyld()", så jeg bruger bare det. Tak igen:-)

Ok og selv tak