changing cell properties in columns in each worksheet, only first ws is changed

Hi,

This macro should change cell properties in the columns of each worksheet, but somehow it only changes cell properties in the first worksheet.
How to overcome this?
[

CODE]Sub OpmaakKolommenTest()

Dim Werkblad As Worksheet

On Error Resume Next
For Each Werkblad In ActiveWorkbook.Worksheets

Columns("A:A").Select
Selection.NumberFormat = "000000000"
Columns("C:C").Select
Selection.NumberFormat = "00000000"
Columns("E:F").Select
Selection.NumberFormat = "dd/mm/yyyy"

Next Werkblad
End Sub[/CODE]

Thank you for your input.
Somehow the cell properties are only adjusted for the sheet i have opened the moment i run the macro. I would like to apply the adjustments for all tabs. How can i do this?

I solved it by adding .select in the With block.