Solved: How to format columns on 'Workbook Open'

[thomas.szwed]

hi there,

could anyone tell me some VB to do the following automatically when the workbook is opened.

In Workbook on ALL sheets

Format all cells in columns E F and J into 'Text' format.

I have this so far but unsure how to modify

With ThisWorkbook.Worksheets(1)
.Columns("J").NumberFormat = "dd/mm/yyyy"
End With

Thanks in advance!

[Bob Phillips]

Private Sub Workbook_Open()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ws.Columns("E:F").NumberFormat = "@"
ws.Columns("J").NumberFormat = "@"
Next ws
End Sub

[thomas.szwed]

Thanks XLD but is this text format?

[Bob Phillips]

Yes it is.

[thomas.szwed]

taa