Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Sub ResetList() ' ' ResetList Macro ' Dim rngList As Range Dim ListCell As Range On Error Resume Next Set rngLists = Sheets("AP Risk Scorecard").UsedRange.SpecialCells(xlCellTypeAllValidation) On Error GoTo 0 If Not rngLists Is Nothing Then For Each ListCell In rngLists.Cells ListCell.Value = Range(Trim(Mid(Replace(ListCell.Validation.Formula1, ":", String(99, " ")), 2, 99))).Value Next ListCell End If Range("E15").Select End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!