Formülü oluşturmada hata oluyor.

[northcyprus]

selamlar sayın hocalarım


Private Sub CommandButton1_Click()

Sheets("ADİSYON").Select
Sheets("ADİSYON").Copy Before:=Sheets(1)
Sheets("ADİSYON (2)").Select
Sheets("ADİSYON (2)").Name = "MASA 1 ADİSYON"
Range("A66").Select
ActiveCell.FormulaR1C1 = "MASA 1"
Range("A7:B7").Select
SPARİŞ_AL.Show

SPARİŞ_AL.Show
End Sub


yukardaki formülde benim yapmaya çalıştıgım fakat yapamadıgım butona tıkladıgım zaman MASA 1 ADİSYON olarak açılmasını istedim fakat ikinci kere tıkladıgım zaman yine ADİSYON açıyor Eğer MASA 1 ADİSYON Yoksa aç Eger varsa var olan MASA 1 ADİSYON da devam et komutunu nerye ve nasıl eklemem gerekiyor....
yardımcı olursanız çok sevinirim şimdiden teşekür ediyorum...