Need help with code!! Font is not changing for all the data on the worksheet

**daillest319** · 01-13-2012, 12:39 PM

I need the font to be Times New Roman for all the date and i also need the all the data center align. not sure what im doing wrong.



Sub format_worksheets()
  Dim i As Long
  Dim LC As Long
  
  
  Application.ScreenUpdating = False
  
  
  For i = 1 To Worksheets.Count


    'Align Text
     With Selection
        .HorizontalAlignment = xlCenter
        Rows("1").HorizontalAlignment = xlLeft
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
     End With


    ' Format Font
     With Selection.Font
        .Name = "Times New Roman"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
        Rows("2:2").Select
        ActiveWindow.FreezePanes = True

     End With
    
    
    
  Next i
  Application.ScreenUpdating = True
  
End Sub

**JieJenn** · 01-13-2012, 12:42 PM

You get an error when excel does not what "selection" is referring to. Try

Sub Macro1()
Dim i As Long

For i = 1 To Sheets.Count
    With Sheets(i).Select
        With Cells
        .Font.Name = "Times New Roman"
        .HorizontalAlignment = xlCenter
        End With
    End With
Next i

End Sub