Makro 438 hatası

[Hasten]

Merhabalar,

Makroyla bi excel dosyasını kopyalayıp, yeni bir isimle aynı klasörün içinde yeni dosya oluşturmaya çalışıyorum. 438 hatası veriyor. Yardımcı olursanız sevinirim.

Dim EskiDosya, YeniDosya, YeniFirma As Variant

YeniFirma = Sheets("CariKayıtTedarikçi").Range("H8")
EskiDosya = Sheets("Sabitler").Range("b1") & "320.örnek.xlsm"
YeniDosya = Sheets("Sabitler").Rance("b1") & YeniFirma & ".xlsm"
FileCopy EskiDosya, YeniDosya

yeni dosya kısmında hata veriyor.

 

[Orion1]

c yerine g olacak.

YeniDosya = Sheets("Sabitler").Ran[B][COLOR="Red"]g[/COLOR][/B]e("b1") & YeniFirma & ".xlsm"