Schreiben in Zelle aus VBA heraus tut nicht-Hilfe

Public Function ComputeAllCellsOfCompany(sParWorkSheet)
' Diese Methode funktioniert nicht. Ich kann zwar Daten über solch eine Methode lesen,
' aber nicht schreiben!
Worksheets("Tabelle2").Range("C71").Value = 4711
' Auch diese Methode funktioniert nicht.
Worksheets("Tabelle2").Cells(71, 3).Value = 5340
End Function

-----------------------
Ich habe jetzt alles Mögliche ausprobiert, doch leider funktioniert es einfach nicht. Das Arbeitsblatt hat den richtigen Namen, die Zelle C71 gibt es auch, wenn ich eine Zahl manuell reinschreibe und in der VBA-Funktion über die analoge Methode auslese, dann bekomme ich auch den richtigen Wert, nur das Reinschreiben eines Wertes funktioniert einfach nicht. Muss man in der Excel-Datei noch irgendetwas setzen? Wer kann mit helfen? Danke im Voraus.
Gruß
Simone