Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Protected cell error

Sub ResetValues2()     For i = 1 To Worksheets.Count     On Error GoTo errorHandler         For Each n In Worksheets(i).UsedRange             If IsNumeric(n) Then                 If n.Value <> 0 Then                      n.Value = 0     ProtectedCell:                 End If             End If         Next n     errorHandler:         If Err = 1005 Then              Resume ProtectedCell         End If     Next i End Sub