space between rows in header

[backup69]

Hi

Maibe anyone can help.
if i use this

Set baas = Worksheets("Andmebaas")
mytext = baas.Range("J1").Value & _
vbCrLf & baas.Range("J2").Value & _
vbCrLf & baas.Range("J3").Value & _
vbCrLf & baas.Range("J4").Value & _
vbCrLf & baas.Range("J5").Value & _
vbCrLf & baas.Range("J6").Value & _
vbCrLf & baas.Range("J7").Value
With ActiveSheet.PageSetup
.RightHeader = mytext
End With

my header rows with to big space between rows but should be minimum.