excel VBAでシートを移動するときに "name XXX already exists"というメッセージを無視する方法

Question

あるブックから別のブックにコピーしようとしていますが、名前が既に存在するシートを移動するとメッセージが表示されます。このメッセージを自動的に無視する方法はありますか？

メッセージは次のとおりです。 は次のとおりです。

コピー

CurrentWorkBook.Sheets(Array("Compliance - learning")).Copy Before:=ActiveWorkbook.Sheets(1) 

Answer 1

私はこれをダニでしょう、あなたは完璧に動作Thanks-

Application.DisplayAlerts = False 
    CurrentWorkBook.Sheets(Array("Compliance - learning")).Copy Before:=ActiveWorkbook.Sheets(1) 
Application.DisplayAlerts = True