Hi
How do cut this one 
[C4,B7,B8,C8,D8,E8,F8,B10,C10,D10,E10,F10,B11,C11,D11,E11,F11,B12,C12,D12,E12,F12,B13,C13,D13,E13,F13,B19,B20,C20,D20,E20,F20,B22,C22,D22,E22,F22,B28,B29,C29,D29,E29,F29,B31,C31,D31,E31,F31,B37,B38,C38,D38,E38,F38,B40,C40,D40,E40,F40,B46,B47,C47,D47,E47,F47,B49,C49,D49,E49,F49,B57,C57,D57,E57,F57].Value = ""


It said its too long. thank you.

'RESET button key

Sub Reset_Click()
Dim lblNum
 Set ws = ActiveSheet
    For lblNum = 1 To ws.OLEObjects.Count
        Set obj = ws.OLEObjects(lblNum)
        Set objobject = obj.Object
       
        If TypeName(objobject) = "Label" Then
            objobject.Caption = ""
        End If
    Next

[C4,B7,B8,C8,D8,E8,F8,B10,C10,D10,E10,F10,B11,C11,D11,E11,F11,B12,C12,D12,E12,F12,B13,C13,D13,E13,F13,B19,B20,C20,D20,E20,F20,B22,C22,D22,E22,F22,B28,B29,C29,D29,E29,F29,B31,C31,D31,E31,F31,B37,B38,C38,D38,E38,F38,B40,C40,D40,E40,F40,B46,B47,C47,D47,E47,F47,B49,C49,D49,E49,F49,B57,C57,D57,E57,F57].Value = ""

Range("C4").Select
End Sub