lior03
11-07-2007, 02:59 AM
hello
i want to makse sure i am usind the same font (name,size,bold) across all open workbook at a time .i want to make sure all data will be in that format,even if i previouslly used a different font.
Sub fontdefaultgeneral()
Dim ws As Worksheet
Dim wb As Workbook
For Each wb In Application.Workbooks
For Each ws In wb.Worksheets
If ws.Visible = xlSheetVisible Then
With ws.Cells
.Font.FontStyle = "arial"
.Font.Size = 10
.Font.Bold = True
End With
End If
Next
Next
End Sub
how can i force excel togo through each workbook and each sheet to achieve this?.
thanks
i want to makse sure i am usind the same font (name,size,bold) across all open workbook at a time .i want to make sure all data will be in that format,even if i previouslly used a different font.
Sub fontdefaultgeneral()
Dim ws As Worksheet
Dim wb As Workbook
For Each wb In Application.Workbooks
For Each ws In wb.Worksheets
If ws.Visible = xlSheetVisible Then
With ws.Cells
.Font.FontStyle = "arial"
.Font.Size = 10
.Font.Bold = True
End With
End If
Next
Next
End Sub
how can i force excel togo through each workbook and each sheet to achieve this?.
thanks