save excel files based on the cell value

Here are two macros to get you started:

Sub show_deps()

sheet_count = ActiveWorkbook.Worksheets.Count

'loop through the worksheets in the workbook
For a = 1 To sheet_count

    If Sheets(a).Name <> "Summary" And Sheets(a).Name <> "Macros" Then

        Sheets(a).Range("A4").AutoFilter Field:=1, Criteria1:="123"

        Call RemoveHiddenRows

    End If

Next a

End Sub
Sub RemoveHiddenRows()
    Dim oRow As Range, rng As Range
    Dim myRows As Range
    With ActiveSheet
        Set myRows = Intersect(.Range("A:A").EntireRow, .UsedRange)
        If myRows Is Nothing Then Exit Sub
    End With

    For Each oRow In myRows.Columns(1).Cells
        If oRow.EntireRow.Hidden Then
            If rng Is Nothing Then
                Set rng = oRow
            Else
                Set rng = Union(rng, oRow)
            End If
        End If
    Next

    If Not rng Is Nothing Then rng.EntireRow.Delete
End Sub

You will need to do some tweaking but it should give you a big head-start on getting the project finished.

You will also need to add a macro that saves the spreadsheet as a new file but thats pretty easy and you should focus on that part after you get the above macros to work correctly.

The second macro was found online and seems to work OK but test it out on your data and see how it goes.

NOTE: run this on test files first since the second macro actually deletes the rows you don't want to see.