sheet2.Range("A1") = Me.cbo1.value
If cbo1 is populated by its .ListFillRange property and that list-range includes cell Sheet2.Range("A1") , then writing to a cell in its list-range will trigger cbo1 to re-populate and in turn trigger it's _Click event.
Bookmarks