Çözüldü Farklı Kaydet Makrosu

Sub Farklı_Kaydet()
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
 ActiveWorkbook.Close
End Sub

Sub Farklı_Kaydet()

    Set wb = Workbooks.Add
    
    Application.DisplayAlerts = False
    
    If wb.Worksheets.Count > 1 Then
        For i = wb.Worksheets.Count To 2 Step -1
            wb.Worksheets(i).Delete
        Next
    End If
    
    Application.DisplayAlerts = True
    
    ThisWorkbook.ActiveSheet.[a1:d10].Copy wb.Worksheets(1).[a1]
    
    wb.Application.Dialogs(xlDialogSaveAs).Show
    
    wb.Close
    
End Sub