belirtilen sayfayı mail atmak

Herkese Merhaba Elimdeki aşağıda yazdığım kod çalışmakta ve sadece belirli bir sayfayı mail göndermektedir. Kod bu anlamda sorunsuz çalışmaktadır Sub Mail_At() On Error Resume Next Application.ScreenUpdating = False Sheets("yetki").Select Dim FileExtStr As String Dim FileFormatNum As Long Dim...