マクロを実行するとフリーズしてしまう。

質問

マクロを実行するとフリーズしてしまいます。

パソコンが原因なのでしょうか？

マクロは

Sub 抽出()
'

'「貼り付け」シートを'一度全てクリアする
Sheets("貼り付け").Select
Cells.Select
Selection.Clear

'「元」シートを選択
Sheets("元").Select

'フィルタかけなおし
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter

'’抽出前「*」選択
Selection.AutoFilter Field:=1, Criteria1:="~*"

'全て選択してコピー
Cells.Select
Application.CutCopyMode = False
Selection.Copy

'「元」を貼り付ける
Sheets("貼り付け").Select
Cells.Select
ActiveSheet.Paste

'フォントを「9」
With Selection.Font
.Size = 9
End With

End Sub

です。

パソコンのスペックは
celeron® cpu3.20GHz
3.19GHz 1GB RAM

です。

最近VBAを覚え始めたばかりな者です。

仕事のデータではもっと複雑なマクロを実行していてもパソコンはなんともないので
マクロに原因があるのではなくパソコンに原因があるのでしょうか？
（上記のマクロを実行しているのは自宅のPCです）

よろしくお願いします。

回答No.1

ASIMOV · ベストアンサー

VBA の画面（マクロのソースを表示している状態）で、「Ｆ８」を押して、１ステップづつ実行してみてください
どこで、フリーズするのかが判ると思います

お礼

大変参考になりました。ご回答ありがとうございます。