ERROR DE COMPILACION: NO SE ENCONTRO EL METODO O EL DATO MIEMBRO

Intento copiar el libro y borrar todas las celdas llamadas VARIABLES

Private Sub CommandButton1_Click()
Dim WB As Workbook
ThisWorkbook.SaveCopyAs "C:\Documents and Settings\Carlos
Borda\Escritorio\MACRO GUARDAR LIBRO MES AÑO " & Format(Date, "yy") &
Format(Date, "mm") & ".xls"
For Each SH In ThisWorkbook

Next
Worksheets.Range("VARIABLES").ClearContents

End Sub

No encuentro el fallo a partir del next,

Gracias