Очистить формат всех выделенных ячеек Dim Range VBA Issue

Question

Я только что начал кодировать несколько дней назад и стараюсь использовать все переменные dim, так как это все говорят. Итак, я пытаюсь очистить форматы, используя текущую область (в основном все ячейки, содержащие значение или форматирование). Вот мой код, и я получаю ошибку компиляции и VBA выдвигает на первый план «Вся» часть последнего кода. Любые мысли? Я новичок, и я не могу понять, что я делаю неправильно.

Sub ClearFormatting() 
    Dim ws as Worksheet 
    Dim Entire As Range 
    Set ws = ThisWorkbook.Sheets("Sheet1") 
    Set Entire = Range("A1").CurrentRegion 
    ws.entire.ClearFormats 
End Sub 

Answer 1

Sub ClearFormatting() 

    Dim ws as Worksheet 
    Dim Entire As Range 

    Set ws = ThisWorkbook.Sheets("Sheet1") 

    Set Entire = ws.Range("A1").CurrentRegion 

    Entire.ClearFormats 'no ws. 

End Sub