Here is the code:
Sub ClearDownloadAndPeriodTabs()
'
' ClearDownloadAndPeriodTabs Macro
' Macro recorded 10/17/2006
Application.ScreenUpdating = False
Sheets("FRx Download").Rows("2:3000").ClearContents
Sheets(Array("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11"...