For Each sht In ActiveWorkbook.Worksheets
If sht.Visible And sht.Name = ("ASY") And sht.Name = ("TEMP") Then
sht.Delete
Worksheets.Add().Name = "ASY"
Worksheets.Add().Name = "TEMP"
Sheets("ASY").Move After:=Sheets("DATA")
Sheets("TEMP").Move After:=Sheets("ASY")...