Kopfzeile Formel einfügen

Hallo,
meine Absicht ist es, im beiliegenden Tabellenblatt mittels VBA in der Kopfzeile folgende Information auszugeben:
Zeitraum vom 15.12.2015 bis 10.02.2016
also Zeitraum vom "kleinsten Datum" bis "größtem Datum" in der Spalte B
Habe mir aus verschiedenen Lösungen im Forum dieses Makro zusammengebastelt, klappt aber _ irgendwie nicht:

Sub Makro6()
' Makro6 Makro
' Tastenkombination: Strg+ü
Dim x1 As String, x2 As Date, x3 As Date, x4 As String
x1 = " Zeitraum vom "
x2 = MIN(B:B).Value
x3 = MAX(B:B).Value
x4 = x1 & CStr(x2) & " bis " & CStr(x3)
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = x4
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
End Sub