SaveAs Macro

Hello All,

My problem is that I need the macro to save files with certain file names and I have a column that has the file name but I dont know how to add that to my SaveAs step. I am also not sure how to loop through tabs... Can I use "Next"?

Currently I have one master file with approx. a thousand tabs, I want my end result to be a thousand separate excel files all saved in their own workbooks named after cell A2 in each tab is that possible?

My code is below (???? Around guesses ????) and included in the attached sample:

Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+w
'
 Columns("A").Select

    Selection.Delete Shift:=xlToLeft
    Columns("A:N").Select
    Columns("A:N").EntireColumn.AutoFit
    Columns("D:D").Select
    Selection.ColumnWidth = 5.57
    Selection.ColumnWidth = 6.71
    Columns("F:F").EntireColumn.AutoFit
    Columns("J:J").ColumnWidth = 15.86
    Columns("K:K").Select
    Selection.ColumnWidth = 13.86
    Columns("L:L").ColumnWidth = 10.29
    Columns("M:M").ColumnWidth = 14
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    Columns("N:N").ColumnWidth = 24.57
    Columns("P:P").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = True
    Cells.Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Cells.Select "A2"
    Selection.Copy
        ActiveWorkbook.SaveAs Filename:=????ActiveWindow.Paste".xls"????, _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False???Next????
End Sub