View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
SMERTZ SMERTZ is offline
external usenet poster
 
Posts: 8
Default Reject Manual Input

I have two questions for a list box. I have the code to put the list box in
thanks to this list. Now I need to do 2 things

1. Make sure typed in data is rejected unless the list box was used
2. Make sure the cursor is always in Column "C" before entering the
contents of the list box.

I seem to remember a way to auto run a macro on workbook open, but can't
find
it in the help files. I know it was something simply like naming the macro
Automatic or something

CODE FOR "OK" Button

Private Sub cmdOK_Click()
Dim strnames As String
Dim x As Integer

For x = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(x) Then
strnames = strnames & ListBox1.List(x) & ", "
End If
Next x

If Not strnames = "" Then
strnames = Left(strnames, Len(strnames) - 1)
End If
ActiveCell.Value = strnames

ListBox1.RowSource = "MyList"

End Sub