VBA Listbox

[ryancgarrett]

I have a form in VBA and it has some option buttons that populate a listbox when they are selected. Based on the selection in the listbox I need to copy a sheet template and rename it to the selection, as well as put the name of the selection in cell B2 of the sheet. This is my code that doesn't work... any suggestions?

Sub AddAccount()

Sheets("Account Template").Copy after:=Sheets("Trial Balance")
Sheets(2).Name = frmAddAccount.lbxAccountName.Selected
Sheets(2).Cells(2, 2).Value = frmAddAccount.lbxAccountName.Selected
Sheets("Trial Balance").Range ("B" & BlankRow("Trial Balance", 4, 2))

End Sub

 

[mikerickson]

Instead of frmAddAccount.lbxAccountName.Selected, you should use the .Value property of the listbox, frmAddAccount.lbxAccountName.Value.


(The .Selected property of a list box is a boolean array of whether an item is selected or not. It is useful for multi-select list boxes, but not in your application.)

 

[ryancgarrett]

Thanks for the quick reply, that was perfect!