Excel Forum

Code: Select all

Sub addbuilt_addrealbuy()


Dim oApp As Object
    Dim oMail As Object
    Dim WB As Workbook
    Dim FileName As String
    Dim wSht As Worksheet
    Dim shtName As String

    Application.ScreenUpdating = False
Sheet1.Activate
    ' Make a copy of the active worksheet
    ' and save it to a temporary file
    ActiveSheet.copy
    Set WB = ActiveWorkbook
    FileName = WB.Worksheets(1).Name
    On Error Resume Next
    
   Application.ScreenUpdating = False
Sheet2.Activate
    ActiveSheet.copy
    Set WB = ActiveWorkbook
    FileName = WB.Worksheets(1).Name
    On Error Resume Next
    
    
    
     Application.ScreenUpdating = False
Sheet4.Activate
    ActiveSheet.copy
    Set WB = ActiveWorkbook
    FileName = WB.Worksheets(1).Name
    On Error Resume Next
    
    
    
    
    
    
    Kill "àÍ¡ÊÒêشἹ¨Ñ´«×éͨÃÔ§"
    On Error GoTo 0
    WB.SaveAs FileName:="àÍ¡ÊÒêشἹ¨Ñ´«×éͨÃÔ§"
    Application.CutCopyMode = False




End Sub