Macro Slow

[WindowGuy]

Hi There. I am not good at this so please bare with me. I copied the following code from the internet to reset all my dropdownlist but it is SOOOOO slow. Like literally 4+ minutes to reset my page. I created myself a quoting program for my small business and would like to default to start fresh again on all dropdown lists. please help and see what i copied and used which is slow. Again i barely understand this so easy on my with terms of answers.

Sub DropDownListToDefault()
    Dim oCell As Range
   
    For Each oCell In ActiveSheet.UsedRange.Cells
        If HasValidation(oCell) Then
            oCell.Value = "'- Choose Option -"
            End If
    Next
   
End Sub

Function HasValidation(cell As Range) As Boolean
    Dim t: t = Null
   
    On Error Resume Next
    t = cell.Validation.Type
    On Error GoTo 0
   
    HasValidation = Not IsNull(t)
End Function

Thanks in advance.

George.

 

[Fluff]

Glad we could help & thanks for the feedback.