VBA simpel formel i cell problem

EDIT: förtydligande i nedanstående inlägg

Luddig logik (hur man pastar in en formel)

=IF(CurrentWeek()=29;-29;29) , där TRUE är (negativ)intCurrentWeek och FALSE är intCurrentWeek

Sub sompastarinicellen()
intCurrentWeek = DatePart("ww", Date, vbMonday, vbFirstFourDays)
Range("A1").Formula = "=IF(CurrentWeek()=intCurrentWeek*2-intCurrentWeek;intCurrentWeek)"
End Sub

Public Function CurrentWeek()
' Current ISO week
CurrentWeek = DatePart("ww", Date, vbMonday, vbFirstFourDays) '
End Function

Ja jag var väldigt luddig såg jag nu,

Det är en fråga, jag lyckas inte via VBA pasta in en formel

Range("cell").Formula = "=IF(CurrentWeek()=intCurrentWeek;intCurrentWeek*2-intCurrentWeek;intCurrentWeek)"
Formeln i cellen ska motsvara (där 39 är dagens vecka) =IF(CurrentWeek()=39;-39;39)

intCurrentWeek sätts i Sub
CurrentWeek() är en public function
båda synns I fg inlägg, har testat med alla möjliga konbinationer och """ fnuttar