Как присвоить начальное значение Combobox'а по имени листа?

[MaDriver]

Приветствую! Как мне присвоить начальное значение Combobox'а по имени текущего листа в Exel'е? И еще один вопрос как мне задать свойства значений Comboboxa напр. String. Спасибо за помощь.

[RayShade]

Код: Выделить всё

Combo1.Additem Application.ActiveSheet.Name
Combo1.ListIndex = Combo1.ListCount

А насчет String вопрос как то не очень ясен.

[MaDriver]

Код: Выделить всё

Combo1.Additem Application.ActiveSheet.Name
Combo1.ListIndex = Combo1.ListCount

А насчет String вопрос как то не очень ясен.

За код начального значения спасибо попробую, а насчет string'а - я хочу обозвать лист значением из combobox'а (если с таким именем еще нет), а для этого насколько я знаю у значения тип должен быть string?

[MaDriver]

Код: Выделить всё

Combo1.Additem Application.ActiveSheet.Name
Combo1.ListIndex = Combo1.ListCount

А насчет String вопрос как то не очень ясен.

Попробывал присланый тобой код, чейто не получилось, если я правильно понял, то это код Combobox'а, если нет то поправь, может нужны особые свойства?

[Calvin]

2 MaDriver проверь имя комбобокса

[MaDriver]

2 MaDriver проверь имя комбобокса

А при чем здесь имя combika?

[corgi]

надо просто написать
Combo1.ListIndex = Combo1.ListCount-1
и все будет работать

[MaDriver]

надо просто написать
Combo1.ListIndex = Combo1.ListCount-1
и все будет работать

--------------------------------------------------------
Sub Очистка()
Mesec.Show
End Sub
--------------------------------------------------------
Private Sub predmes_Change()
Combo1.AddItem Application.ActiveSheet.Name
Combo1.ListIndex = Combo1.ListCount - 1
End Sub
--------------------------------------------------------
Combobox, остается не заполненым, где ошибка не въеду?