Given the following code which loops through an array

Sub ClearRange(ByVal s As String
Dim v As Varian
Dim i As Lon
Dim ar As Rang

v = Array("RangeName1", "RangeName2", "RangeName3
For i = LBound(v) To UBound(v
For Each ar In ThisWorkbook.Names(v(i)).RefersToRange.Area
If s = "Yes" The
' cycle through the entire range performing calculation
Els
' Do nothing within the rang
End I
Next a
Next
End Su
===============
What additional code must I insert (and where) to
1. Allow the user to select from a dialogue box which ranges to clear (with the default having all check boxes or radio buttons selected?, an
2. Display on the users screen which Range Name is currently running through the loop while the entire procedure is underway

Thanks in advance
Scot