如何簡化這程式

大大們, 安好,
小弟錄制了一個巨集, 但錄制出來的程式太長, 請教大大們, 如何把程式簡化, 感恩, 謝謝!!

Sub 清除工作表色彩()
'
' 清除工作表色彩 Macro
'

'
Sheets("1月").Select
Range("G4").Select
Range("G4:AK20").Select
With Selection.Interior
      .Pattern = xlNone
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
Range("G4").Select
Sheets("2月").Select
Range("G4:AK20").Select
With Selection.Interior
      .Pattern = xlNone
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
Range("G4").Select
Sheets("3月").Select
Range("G4:AK20").Select
With Selection.Interior
      .Pattern = xlNone
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
Range("G4").Select
Sheets("4月").Select
Range("G4:AK20").Select
With Selection.Interior
      .Pattern = xlNone
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
Range("G4").Select
Sheets("5月").Select
Range("G4:AK20").Select
With Selection.Interior
      .Pattern = xlNone
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
Range("G4").Select
Sheets("6月").Select
Range("G4:AK20").Select
With Selection.Interior
      .Pattern = xlNone
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
Range("G4").Select
Sheets("7月").Select
Range("G4:AK20").Select
With Selection.Interior
      .Pattern = xlNone
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
Range("G4").Select
Sheets("8月").Select
Range("G4:AK20").Select
With Selection.Interior
      .Pattern = xlNone
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
Range("G4").Select
Sheets("9月").Select
Range("G4:AK20").Select
With Selection.Interior
      .Pattern = xlNone
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
Range("G4").Select
Sheets("10月").Select
Range("G4:AK20").Select
With Selection.Interior
      .Pattern = xlNone
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
Range("G4").Select
Sheets("11月").Select
ActiveWindow.SmallScroll
Range("G4:AK20").Select
With Selection.Interior
      .Pattern = xlNone
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
Range("G4").Select
Sheets("12月").Select
Range("G4:AK20").Select
With Selection.Interior
      .Pattern = xlNone
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
Sheets("公眾假期").Select
Range("A1").Select