Macro para modificar múltiples archivos y guardarlos en su misma carpeta

Tengo una macro, ahora quiero completarla para qué me abra todos los archivos de una carpeta, los modifique y los guarde ya con los cambios

Sub fff()

'

' Fff Macro

'

' Acceso directo: CTRL+q

'

    Columns("C:C").Select

    Selection.Delete Shift:=xlToLeft

    Rows("1:1").Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Range("A1").Select

    ActiveCell.FormulaR1C1 = "Lon"

    Range("B1").Select

    ActiveCell.FormulaR1C1 = "Lat"

    Range("C1").Select

    ActiveCell.FormulaR1C1 = "Pre"

    Range("D1").Select

    ActiveCell.FormulaR1C1 = "Est"

    Range("E1").Select

    ActiveCell.FormulaR1C1 = "Fecha"

    Range("E2").Select

    'obtener la parte de la fecha

libro = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) 'se le quita la extensión

fechax = Right(libro, 6)

fechaCol = Left(fechax, 2) & "/" & Mid(fechax, 3, 2) & "/20" & Right(fechax, 2)

'se obtiene la última fila con datos según col A  (ajustar)

finx = Range("A" & Rows.Count).End(xlUp).Row

'se coloca la fecha en col F controlando posible error de fecha invalida

On Error Resume Next

Range("E2:E" & finx) = CDate(fechaCol)

On Error GoTo 0

'ActiveWorkbook.Save

End Sub