Macro to insert column titles

[0celj]

Hi,

I'm new to writing macros and need a hand creating a macro to insert three column titles (first row, first three columns) on about 400 files!

Sub Macro1()
'
'
'



'
Selection.EntireRow.Insert
Range("A1").Select
ActiveCell.FormulaR1C1 = "Text"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Text"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Text"

End Sub

is what i have so far.. i'm just not sure how to write the code for an input folder and how to get it to go through all the files in the folder.
thanks!

[HSV]

If they are all in de same folder "Ocelj".
Rename the folder settings.

Sub WrkBksopen()
Dim fileopen
fileopen = Dir("C:\Users\HSV\Documents\Ocelj\*")
    Do Until fileopen = ""
      If fileopen = "" Then Exit Do
        Workbooks.Open "C:\Users\HSV\Documents\Ocelj\" & fileopen
        ActiveWorkbook.Sheets("Blad1").Range("A1").Resize(, 3) = Array("Title 1", "Title 2", "Title 3")
        Application.DisplayAlerts = False
        Workbooks(fileopen).Close True
     fileopen = Dir
    Loop
 Application.DisplayAlerts = True
End Sub