Hvorfor koden ikke virker?

Hej!
Jeg har en kombo boks hvor man har en liste med produkternesnavne og makroen har jeg fået her.Jeg vil gerne have ændre makroen sådan  at man kan vælge om man vil have en liste med produkternes navne eller med priserne. Produkternes navne har jeg i kolonne a1 til a 67 mens priserne hra jeg i kolonnerne d1 til d67.
Har fået nedenstående forslag men det virker ikke da i combo boxen ikke bliver indsat en liste.
Jeg navngiver områderne:
Sheets(2).(a1 :a67 ) som Produktnavne
og
Sheets(2).(d1 :d67 ) som priser

Rettet koden i ThisWorkbook modulet til

Private Sub Workbook_Open()
  Sheets(1).ComboBox1 = ""
  Sheets(1).ComboBox1.ListFillRange = "Produktnavne"
  CommandButton1.Caption = "Priser"
End Sub


og koden for knappen

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Produktnavne" Then
Sheets(1).ComboBox1 = ""
Sheets(1).ComboBox1.ListFillRange = "produktnavne"
CommandButton1.Caption = "Priser"
Else
Sheets(1).ComboBox1 = ""
Sheets(1).ComboBox1.ListFillRange = "Priser"
CommandButton1.Caption = "Produktnavne"
End If
End Sub