Hvorfor virker denne udskrifts makro ikke?

Det jeg gerne vil have denne makro gør, er at markere A1:S69 som udskift område, således at når man trykker på "udskriv" er det dette område der bliver skrevet ud på én side.

udskriftområdet bliver rigtig nok afgrænset til A1:S69, men det er delt op i 4 sider....



Sub udskrift()

Worksheets("Headcount").PageSetup.PrintArea = "$A$1:$s$69"

With Worksheets("Headcount").PageSetup
    .Orientation = xlPortrait
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With
End Sub