Sub Macro1()
Dim ws As Object
For Each ws In Worksheets
With ws.Columns("D:F")
.NumberFormat = "0.0"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A1").Select
Next ws
End Sub