Is there a way to print the value of a Control Toolbox text field in a
spreadsheet's 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