Excel VBA：将单元格格式设置为默认值的最佳方法

我创建了一个函数，用于将一个或多个单元格设置为默认格式（即新工作表中所有单元格的外观）。这是我的函数

Public Function setDefaultCellFormat(ByVal worksheetName As String, ByVal target As Range)
    Dim neutralTintAndShade As Single: neutralTintAndShade = 0

    With Worksheets(worksheetName).target.Font
        .color = xlWhite
        .FontStyle = "Regular"
        .Name = "Arial"
        .Size = 10
        .Strikethrough = False
        .Underline = xlUnderlineStyleNone
        .Subscript = False
        .Superscript = False
    End With

    With Worksheets(worksheetName).target.Borders
        .color = vbWhite
        .LineStyle = xlLineStyleNone
        .ThemeColor = xlThemeColorNone
        .TintAndShade = neutralTintAndShade
        .Weight = 1
    End With

    With Worksheets(worksheetName).target.Interior
        .color = vbWhite
        .Gradient = xlGradientNone
        .InvertIfNegative = False
        .Pattern = xlPatternNone
        .PatternColor = xlWhite
        .PatternThemeColor = xlWhite
        .PatternTintAndSage = neutralTintAndShade
        .ThemeColor = xlWhite
        .TintAndShade = neutralTintAndShade
    End With
End Function

---

显然，我的功能相当长。因此，我想知道是否有可能以一种更简单的方式重构它。例如，字体、边框和内部对象是否可以像从新工作表中一样重置？

您可以使用范围。ClearFormats-这将清除对象的格式（例如字体、边框、内部颜色）

---

您不能清除所有格式设置吗？