Hello All,
i use this code in my workbook but then i added sheet10 as data collection, so i dont want to run it on sheet10 recently, what should i do to run exclude sheet10?
ps. sheet10 named data
thank you very much and credit to gordsky here
i use this code in my workbook but then i added sheet10 as data collection, so i dont want to run it on sheet10 recently, what should i do to run exclude sheet10?
ps. sheet10 named data
thank you very much and credit to gordsky here
VBA Code:
Sub Macro1()
'
' Macro1 Macro
'
'
Dim ws As Worksheet
Dim wb As Workbook
Set wb = ThisWorkbook
For Each ws In ThisWorkbook.Worksheets
With ws
.Rows(1).RowHeight = 100
.Rows("2:5").RowHeight = 20
.Rows("10:39").RowHeight = 40
.Range("B1:F1,B5:F5").Merge
.Columns("B").EntireColumn.AutoFit
.Columns(1).ColumnWidth = 12
.Columns("G:H").ColumnWidth = 15
.Columns("D").ColumnWidth = 80
End With
With ws.Range("B1").Font
.Name = "Calibri"
.Size = 75
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = -16777216
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With ws.Range("B2:B5").Font
.Name = "Calibri"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = -16777216
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With ws.Range("D10:D39")
With .Font
.Name = "Calibri"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = -16777216
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
With ws.Range("B1:F1,B2:F2,B3:F3,B4:F4,B5:F5")
.Merge
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
ws.Activate
ws.Range("A1").Select
Next ws
Sheets(1).Select
With Sheets(1)
.Columns.UseStandardWidth = True
.Rows.UseStandardHeight = True
.Rows.RowHeight = 15
.Columns.ColumnWidth = 9
ActiveSheet.Cells.UnMerge
End With
End Sub