Good day,
I have the following code in my Userform:
I have different sheet but some information will be repeated in these sheets. When I bring my Userform on Case 6, it doesn't populate the right case Selection. Why is this code not functioning well?Dim arrCat As Variant Private Sub ComboBox1_Change() ActiveCell = ComboBox1 Unload Me End Sub Private Sub UserForm_Initialize() With Sheets("Pre-Solicitation") Select Case ActiveCell.Column Case 6: arrCat = Range("Strategy").Value Caption = "Strategy Selection" Case 7: arrCat = Range("Type").Value Caption = "Type Selection" Case 8: arrCat = Range("Peer").Value Caption = "Peer Selection" End Select End With With Sheets("Evaluation") Select Case ActiveCell.Column Case 6: arrCat = Range("Peer").Value Caption = "Peer Selection" End Select End With With Sheets("Report") Select Case ActiveCell.Column Case 8: arrCat = Range("Peer").Value Caption = "Peer Selection" Case 12: arrCat = Range("Peer").Value Caption = "Peer Selection" End Select End With ComboBox1.List = arrCat End Sub
I mean I am closing my "With" therefore should not be looking in my Sheets("Evaluation") on case 6 when I trigger Case 6 in Sheets("Pre-Solicitation").
Bookmarks