Variablen

Sub test1() 'kleines Makro
Dim varName1 As String
varName1 = "Apfel"
Dim varName2 As String 'zum Zellennamen vergeben
varName2 = "_Birne"
Application.Run "KalkulationsmakrosV1.xls!test"
End Sub

Leider funktioniert dieser Code nicht.
Wie muß ich die Variablen in diesem kleinen Makro ansprechen, damit sie im großen Makro richtig gesetzt werden?
Wie heißt der komplette Code für ein kleines Makro?
Anbei noch ein Ausschitt das großen Makros:

Sub testgroß()
'Zellen verbinden, formatieren, ausfüllen und Kommentar einfügen
ActiveCell.Offset(0, -1).Range("B1:L1").Select
Selection.Merge
Selection.HorizontalAlignment = xlLeft 'links zentrieren
ActiveCell.Value = Workbooks("Kalkulationsdaten.xls").Names("O_" & varName1).RefersToRange. _
Value
Workbooks("Kalkulationsdaten.xls").Names("O_" & varName1).RefersToRange.Copy 'Kommentar  _
kopieren
ActiveCell.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone 'Kommentar einfügen
Names.Add Replace(Cells(lZeile, iSpalte).Value, " ", "") & "_O" & varName2, ActiveCell
PS. Alle Makros stehen im gleichen Modul, werden aber in einer anderen Ecxeltabelle  _
abgearbeitet.
Gruß