If you have many Lists:
http://cjoint.com/?bjw7iyh5Sz
Sub raz()
For Each c In Cells.SpecialCells(xlCellTypeAllValidation)
nameList = Mid(c.Validation.Formula1, 2)
c.Value = Range(nameList)(1)
Next c
End Sub
JB
On 9 jan, 19:51, JB wrote:
I suppose the list is named MyList:
http://cjoint.com/?bjuMxnT58R
Sub raz()
* For Each c In Cells.SpecialCells(xlCellTypeAllValidation)
* *c.Value = Range("MyList")(1)
* Next c
End Sub
JBhttp://boisgontierjacques.free.fr
On 9 jan, 19:07, FirstVette52 <(My User name is Firstvette 52, too)
firstvet52@(my ISP E-mail provider is) netzero.com wrote:
I have several cells that use named lists with the Validation feature on a
form. *How do I reset those cells to their first list option?
Is there a way to search the form range for validated cells and then reset
them?
Thank You for any help you may be able to give : )
--
FirstVette52- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -