Thank you for the quick response. My code is really basic, and I apologize for that. I am merely learning the great capabilities of VBA.
Sub CreateExtract()
Workbooks.Add
Windows("MFGIndirectModeltest.xls").Activate
Sheets("FORECAST").Select
Cells.Select
Selection.Copy
ActiveWindow.ActivatePrevious
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("A:A").EntireColumn.AutoFit
Columns("B:D").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("A1:A2000").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1").Select
ActiveWorkbook.SaveAs _
FileName:="D:Personal" & Worksheets("Sheet1").Range("A1").Value & "I.xls", _
FileFormat:=xlNormal, _
Password:="mfgie", _
WriteResPassword:=""
ActiveWindow.Close SaveChanges:=True
Windows("MFGIndirectModeltest.xls").Activate
Range("A30").Select
Sheets("Instructions").Select
End Sub
I apologize in advance for the code being so long, but I am just scratching the surface of the files