' We have some data in Excel that we want to share by email with attachment हमारे पास Excel में कुछ डेटा हैं जिन्हें हम अनुलग्नक के साथ ईमेल द्वारा साझा करना चाहते हैं Sub For_GSTR3B_Report_Share() Dim sWorkbook1 As Workbook Dim wb As Workbook Dim objApp As Object 'For New Workbook Dim ws As Worksheet Dim savepath As String 'Delete all file from folder temp2 On Error Resume Next Kill "C:\Users\PRAMOD.GARG\Desktop\pk_temp*.*" On Error GoTo 0 On Error Resume Next Set wb = Workbooks("Pkgarg_Control_Sheet_With_Gaurav_Coding.xlsm") On Error GoTo 0 If Not wb Is Nothing Then MsgBox "It's open" wb.Activate Worksheets("For_GSTR3B_Report_Share...