Hi forummates,
Following code works...
Following code doesnt work...
Private Sub Worksheet_Activate() Sheets("Sheet1").ComboBox1.List = Sheets("Sheet1").Range("A1:A3").Value End Sub
Do you know why?Private Sub Worksheet_Activate() Sheets("Sheet1").ComboBox1.List = Sheets("Sheet1").Range("A1:C1").Value End Sub
Enclosed file for testing...
Sub DontForgetThese() If Your thread includes any code Then Please use code tags... If Your thread has been solved Then Please mark as solved... If Anybody has helped to you Then Please add reputation... End Sub
Hi Herry
Ty thisSheets("Sheet1").ComboBox1.List = WorksheetFunction.Transpose(Sheets("Sheet1").Range("A1:C1").Value)
John
If you have issues with Code I've provided, I appreciate your feedback.
In the event Code provided resolves your issue, please mark your Thread as SOLVED.
If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.
Thanks jaslake... Solved...
You're welcome...glad I could help. Thanks for the Rep.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks