I select a sheet and ClearContents
anything that has a particular style.
The code is crashing.
Expected to delete anything in a given style.
Sub Reset_User_Inputs()
Dim input_cell As Range
Sheet1.Activate
Sheet1.Cells.Select
For Each input_cell In Selection
If input_cell.Style = "RESETABLE" Then
input_cell.ClearContents
End If
Next input_cell
End Sub
Sub ResetUserInputs()
' Combine the critical cells into a range.
Dim urg As Range, cell As Range
With Sheet1.UsedRange
For Each cell In .Cells
If cell.Style = "RESETABLE" Then
If urg Is Nothing Then
Set urg = cell
Else
Set urg = Union(urg, cell)
End If
End If
Next cell
End With
' Clear the range in one go.
If Not urg Is Nothing Then
urg.ClearContents
End If
' Inform.
MsgBox "User inputs reset.", vbInformation
End Sub