Snasui Excel Forum

Code: Select all

Sub PD_file()
'
' PD_file Macro
    Dim name2 As String
    Dim Fpath As String
    Fpath = "D:\PO_SIMKITTING"
        name2 = Range("i2").Value
        ActiveWorkbook.Activate
    Range("F:F,A:A,C:C").Select
        Selection.Copy
    Workbooks.Add
        ActiveSheet.Paste
        Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Application.CutCopyMode = False
    Columns("A:A").Insert
    Columns("D:D").Select
    Selection.Cut Destination:=Columns("A:A")
    ChDir "D:\PO_SIMKITTING"
    ActiveWorkbook.SaveAs Filename:=Fpath & name2, FileFormat:=51, CreateBackup:=False
         ActiveSheet.Protect Password:="11669"
        ActiveWorkbook.Save
        ActiveWorkbook.Close

'
End Sub

Code: Select all

'Other code
Selection.Cut Destination:=Columns("A:A")
'ChDir "D:\PO_SIMKITTING"
ActiveWorkbook.SaveAs Filename:=Fpath & "\" & name2, FileFormat:=51, CreateBackup:=False
ActiveSheet.Protect Password:="11669"
ActiveWorkbook.Save
ActiveWorkbook.Close
'Other code