Boa tarde!!
Tente assim..
Sub WorkSheet_Activate()
Worksheets("Grafico").OLEObjects("comboArea").ListFillRange = "AleVBA"
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 19/12/2013 1:27 pm