アクティブなシートコード名がexitサブと等しい場合

Question

このコードを1行に短縮する理由はありますか？コードは機能しますが、統合したいのですか？私は本当にあなたの質問を理解していけない

'If active sheet has the code name below then exit this sub 

If ActiveSheet.CodeName = "VPL" Then Exit Sub 
If ActiveSheet.CodeName = "VBA_BlankBidSheet" Then Exit Sub 
If ActiveSheet.CodeName = "VBA_BlankOptionSheet" Then Exit Sub 
If ActiveSheet.CodeName = "VBA_Dropdowns" Then Exit Sub 

Answer 1

...あなたが使用したり、同じよう

を意味ですか？

If ActiveSheet.CodeName = "VPL" Or ActiveSheet.CodeName = "VBA_BlankBidSheet" Or ActiveSheet.CodeName = "VBA_BlankOptionSheet" Or ActiveSheet.CodeName = "VBA_Dropdowns" Then Exit Sub