selam
excel modulunuzdeki kodları alttaki ile değiştirin

  On Error GoTo ExAcHata

  '-------------------------------------------------

  Dim yol, deger As String

  yol = Application.CodeProject.Path 'excel dosyasının kaydedileceği yol

  deger = "ayd yapı" 'excel dosyasının ve sayfasının adı

  Kill yol & deger & ".xls" 'excel dosyasının varsa sil

  '-------------------------------------------------

  ExAc = False

  Set ExC = New Excel.Application

  ExC.Visible = True

  Set ExW = ExC.Workbooks.Add

  Set ExS = ExW.Worksheets(1)

  ExAc = True

      '-------------------------------------------------

With ExC

.Sheets("Sayfa2").Delete 'sayfa sil

.Sheets("Sayfa3").Delete 'sayfa sil

.Sheets("Sayfa1").Name = deger 'sayfa adı

ExC.Application.ActiveWorkbook.SaveAs FileName:=yol & deger & ".xls"

End With

  '-------------------------------------------------

  Exit Function

ExAcHata:

  ExAc = False

  Set ExC = Nothing