Simple example... [vba]Originally Posted by Tiger Chen
Option Explicit
Sub AddListBox()
ActiveSheet.ListBoxes.Add(170, 25, 190, 180).Select
With Selection
.ListFillRange = "$A$1:$A$20"
.Display3DShading = True
End With
End Sub[/vba]record a macro of you performing the actions you want
?this seems to indicate that you want to develop a stand-alone project in VB and not VBA?Originally Posted by Tiger Chen
![]()