Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formating Macro
I want to apply this macro to all the workshhets in a
workbook. Sub Change_Font() Cells.Font.Name = "Arial" End Sub How would I code this to change all the cells in all the worksheets? Many Thanks, Brady Snow McKinney, Texas |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formating Macro
have a look at formatstyle
just recorded this. Delete what you don't need Sub Macro1() ' ' Macro1 Macro ' Macro recorded 11/4/2003 by Don Guillett ' ' With ActiveWorkbook.Styles("Normal") .IncludeNumber = True .IncludeFont = True .IncludeAlignment = True .IncludeBorder = True .IncludePatterns = True .IncludeProtection = True End With With ActiveWorkbook.Styles("Normal").Font .Name = "Antique Olive Roman" .Size = 10 .Bold = False .Italic = False .Underline = xlUnderlineStyleNone .Strikethrough = False .ColorIndex = xlAutomatic End With Selection.Style = "Normal" End Sub "Brady Snow" wrote in message ... I want to apply this macro to all the workshhets in a workbook. Sub Change_Font() Cells.Font.Name = "Arial" End Sub How would I code this to change all the cells in all the worksheets? Many Thanks, Brady Snow McKinney, Texas |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formating Macro
Sub Change_Font() Dim wk as worksheet For Each wk in ThisWorkbook.Worksheets wk.Cells.Font.Name = "Arial" Next wk end Sub -----Original Message----- I want to apply this macro to all the workshhets in a workbook. Sub Change_Font() Cells.Font.Name = "Arial" End Sub How would I code this to change all the cells in all the worksheets? Many Thanks, Brady Snow McKinney, Texas . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Formating/Macro/Script Help | Excel Discussion (Misc queries) | |||
Formating percentage in macro | Excel Discussion (Misc queries) | |||
Conditional formating or Macro code | Excel Discussion (Misc queries) | |||
Inserting and Formating Variables in a Header using a macro | Excel Discussion (Misc queries) | |||
formating macro | Excel Discussion (Misc queries) |