As I said, the code I posted was fairly basic. Without knowing how many Sections your document has, or how many headers each Section uses and, if more than one, whether their headers are linked, I'd be reluctant to suggest anything more than:
Code:
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = Combobox1.Value