kusura bakmayın aceleden eklemeyi unutmuşum, aşağıdaki fonksiyonu yeni bir modüle ekler misiniz?

Function SyfVarMi(ByVal SyfAdiMtn As String) As Boolean



Dim ws As Worksheet

SyfVarMi = False

For Each ws In Worksheets

    If ws.Name = SyfAdiMtn Then SyfVarMi = True

Next ws



End Function

---

aslında o kontrole bu aşamada gerek yok zaten sayfa yoksa listeye de eklenemeyeceği için tekrar kontrol etmek anlamsız
amacım accessten excele aktarırken bu denetimi yapmaktı ama işler maalesef aceleye geldiği için yeterince düzenleme yapamadım
aslında orada kod

If SyfVarMi(SyfAdi) = True Then objAccess.DoCmd.TransferSpreadsheet 0, 10, SyfAdi, ThisWorkbook.FullName, True, SyfAdi & "$"

yerine aşağıdaki şekilde de yazılabilirdi

objAccess.DoCmd.TransferSpreadsheet 0, 10, SyfAdi, ThisWorkbook.FullName, True, SyfAdi & "$"