マクロをセルの幅にフォーマットする

Question

マクロのレコーダーを使用して、このマクロを記録しました。これは、いくつかの列を$としてフォーマットし、列を自動フィットする必要があります。しかし、VBEからこのマクロを実行しようとすると、フォーマットの変更は行われません。データを適切にフォーマットするには、この構文で何を変更する必要がありますか？

Public Function Format() 

Dim ws As Worksheet 
For Each ws In ActiveWorkbook.Worksheets 

With ws 
    Cells.Select 
    Cells.EntireColumn.AutoFit 
    Columns("D:M").Select 
    Selection.NumberFormat = "$#,##0" 
    Range("A1").Select 
End With 

Next 

End Function 

Answer 1

Scott Cranerさんのコメントと同様に、先行するものを含める必要があります。ただし、withブロックを削除してワークシート修飾子を使用することでこのコードを短くすることができます

Public Sub Format() 
    Dim ws As Worksheet 
    For Each ws In ActiveWorkbook.Worksheets 
     ws.Cells.Columns("D:M").NumberFormat = "$#,##0" 
     ws.Cells.EntireColumn.AutoFit 
     ws.Activate 
     ws.Range("A1").Select 
    Next 
End Sub