AccessデータをExcelにコピーし「折り返して全体を表示する」を解除

AccessのデータをExcelに貼り付ける際、

↓　貼り付け

↓　このままでは見栄えが悪いので、以下の処理を行う

①セルの書式設定で「折り返して全体を表示する」のチェックを外す

②列幅を自動調整

この①、②を実行する関数

Sub AccessToExcelFormat()

    '「折り返して全体を表示する」を解除する
    Selection.WrapText = False
    
    '列幅を自動調整する
    '---EntireColumn => 対象セルが含まれる列を指す
    Selection.EntireColumn.AutoFit
    
End Sub

※Selection = 選択中のセル。Range型

実行後