如何在不重复代码的情况下删除多个工作表中的同一行？

Sheets("CDGL Data").Select
Rows([1]).EntireRow.Delete

Sheets("CDGL Data (2)").Select
Rows([1]).EntireRow.Delete

Sheets("CDGL Data (3)").Select
Rows([1]).EntireRow.Delete

Sheets("CDGL Data (4)").Select
Rows([1]).EntireRow.Delete
Sheets("CDGL Data").Select
Rows([1]).EntireRow.