Riepiloghi da creare

Option Explicit
Function wsExists(ByVal sFoglio As String) As Boolean
  wsExists = Not IsError(Evaluate("'" & sFoglio & "'!A1"))
End Function
Sub ricerca()
Dim W As Long, X As Long, Y As Long, M As Long, Col As Long, Nome As String, Com As String, Fg As String, r, c
Dim ws As Worksheet, Rg As Object, Cl As Object, Val As Double
''''''''''
Sheets("Riepilogo").Activate
M = DateSerial(Year(Date), Cells(1, 5) + 1, 1) - DateSerial(Year(Date), Cells(1, 5), 1)
M = InputBox("Digitare quanti giorni elaborare...Ex da 1 sino 28,30 o 31", , M)
For Y = 1 To M
    Nome = CStr(Y)
    If Not wsExists(Nome) Then
        MsgBox "Manca foglio " & Y: Exit Sub
    End If
Next Y
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
    Range("G7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.ClearContents
''''''''''