Private Sub Workbook_Open()
Sheet1.ComboBox1.ListFillRange = "목록"
End Sub
■ 임의로 단축키를 설정하는 방법....
'''''''''' auto_open 에 Onkey메서드를 사용하엿습니다.. ''''''''''''
Sub auto_open()
Application.OnKey "{f2}", "frm_open"
End Sub
'''''''''' F2 버튼을 누르면 유저폼이 생성됩니다. ''''''''''''
Sub frm_open()
frmchart.Show
End Sub