This is an excerpt of an answer I gave on an Excel VBA mailing list. The original poster asked if I could explain my solution.

Let's look at a single solution not involving a sub routine call. We'll use the Combo Box control named CboMonth. Here's the submitted method with some white space added for us poor human readers. :)

Visual Basic:
  1. With CboMonth
  2.  
  3.     .AddItem "1"
  4.     .AddItem "2"
  5.     .AddItem "3"
  6.     .AddItem "4"
  7.     .AddItem "5"
  8.     .AddItem "6"
  9.     .AddItem "7"
  10.     .AddItem "8"
  11.     .AddItem "9"
  12.     .AddItem "10"
  13.     .AddItem "11"
  14.     .AddItem "12"
  15.  
  16. End With

(more...)