Arcticwarrio
Active Member
- Joined
- Dec 6, 2005
- Messages
- 439
i've tried a few things but cant quite get my head round it.
your help will be much appreciated
I have the following code,
i would like to select columns A:W and center the text
Cheers.
your help will be much appreciated
I have the following code,
i would like to select columns A:W and center the text
Cheers.
Code:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Range("A1") = "W/O"
Sh.Range("B1") = "CUSTOMER"
Sh.Range("C1") = "DETAILS"
Sh.Range("D1") = "CUST PART NO"
Sh.Range("E1") = "STATUS"
Sh.Range("F1") = "NOTES"
Sh.Range("G1") = "DEPARTMENT"
Sh.Range("H1") = "DATE"
Sh.Range("I1") = "CUST ORDER NO"
Sh.Range("J1") = "DEL NO"
Sh.Range("K1") = "QTY"
Sh.Range("L1") = "SALE PRICE"
Sh.Range("M1") = "CARRIAGE OUT"
Sh.Range("N1") = "TOTAL SALES"
Sh.Range("O1") = "INT CODE"
Sh.Range("P1") = "SUPPLIER"
Sh.Range("Q1") = "COST PRICE"
Sh.Range("R1") = "CARRIAGE IN"
Sh.Range("S1") = "TOTAL HRS"
Sh.Range("T1") = "LABOUR COST"
Sh.Range("U1") = "TOTAL COST"
Sh.Range("V1") = "GROSS PROFIT"
Sh.Range("W1") = "GROSS PROFIT"
With Sh.Columns("A")
.ColumnWidth = 9.71
End With
With Sh.Columns("B")
.ColumnWidth = 24.29
End With
With Sh.Columns("C")
.ColumnWidth = 47.71
End With
With Sh.Columns("D")
.ColumnWidth = 16
End With
With Sh.Columns("E")
.ColumnWidth = 13.57
End With
With Sh.Columns("F")
.ColumnWidth = 24.71
End With
With Sh.Columns("G")
.ColumnWidth = 15.43
End With
With Sh.Columns("H")
.ColumnWidth = 8.57
End With
With Sh.Columns("I")
.ColumnWidth = 16.29
End With
With Sh.Columns("J")
.ColumnWidth = 8.41
End With
With Sh.Columns("K")
.ColumnWidth = 7.71
End With
With Sh.Columns("L")
.ColumnWidth = 12.43
End With
With Sh.Columns("M")
.ColumnWidth = 15
End With
With Sh.Columns("N")
.ColumnWidth = 13.71
End With
With Sh.Columns("O")
.ColumnWidth = 12.14
End With
With Sh.Columns("P")
.ColumnWidth = 23.29
End With
With Sh.Columns("Q")
.ColumnWidth = 13.14
End With
With Sh.Columns("R")
.ColumnWidth = 13.71
End With
With Sh.Columns("S")
.ColumnWidth = 11.29
End With
With Sh.Columns("T")
.ColumnWidth = 11.29
End With
With Sh.Columns("U")
.ColumnWidth = 13
End With
With Sh.Columns("V")
.ColumnWidth = 14.86
End With
With Sh.Columns("W")
.ColumnWidth = 14.86
End With
With Sh.Range("A:W").Font
.Size = 8
End With
With Sh.Range("1:1").Font
.Bold = True
End With
End Sub