Is there a way to print the value of a text box in a spreadsheets header? I
have a dynamic print function that prints out the spreadsheet. I would like
to be able to use the text box when the print out spans multiple pages.


Sub PrintCart()

Dim lngBottomRow As Long
Dim rngData As Range

'Where is the end of the data beginning with row 24, 1-23 reserved for
header
Set rngData = Range("a24").End(xlDown)

lngBottomRow = rngData.Row

Range("A1", "J" & lngBottomRow).PrintOut

End Sub