Comments on: Fun with Custom Lists

By: kk

kk — Wed, 20 Jul 2011 22:02:16 +0000

i’m not sure why you need vba within excel … i’d much rather compare the binary strings and push/append the regkey. pros? cons?

By: General Ledger

General Ledger — Fri, 24 Sep 2010 00:23:01 +0000

Great topic but not sure about your scenario. You can add a custom list by importing it from an Excel file. As you said, if you want to share a list with people who all have lame Excel skills, get them to run VBA. I am not sure getting them to run VBA would be better than getting them to import a list from a file.

By: lantere

lantere — Thu, 11 Feb 2010 13:59:16 +0000

@BEL8490
“…Office suite in language X installed on a Windows system in language Y, then you have twice the standard lists…”

Interesting.

Also, it seems the same thing happens if you have two Office Suites (2003 + 2007) installed.
(At least on my Home PC as well as on my Work PC.)

By: Jeff Weir

Jeff Weir — Mon, 08 Feb 2010 09:20:36 +0000

Mike: All that reading of Walkenbach’s power programming with VBA has paid off… I’ve substantively improved your macro:

Sub Add_Big_Mac()
Dim i As Integer
‘Check if the list exists.
i = Application.GetCustomListNum(Array(“5 rashers of Streaky Bacon”,”Two All Beef Patties”, “Special Sauce”, “Lettuce”, “Cheese”, “Pickles”, “Onions”, “Sesame Seed Bun”))

‘Exit if the list is already there.
If i> 0 Then
Exit Sub
Else
‘Add the list if it does not exist.
Application.AddCustomList (Array(“5 Rashers of Streaky Bacon”,”Two All Beef Patties”, “Special Sauce”, “Lettuce”, “Cheese”, “Pickles”, “Onions”, “Sesame Seed Bun”))
End If
End Sub

By: BEL8490

BEL8490 — Mon, 08 Feb 2010 07:55:48 +0000

This number must be greater than or equal to 5 (Microsoft Excel has four built-in custom lists that cannot be deleted).

cfr: http://msdn.microsoft.com/en-us/library/bb223327.aspx

It is interesting to note that if you have an Office suite in language X installed on a Windows system in language Y, then you have twice the standard lists and hence the delete number limit is raised to 9!