Dec 062017
 
PC Magazine Vol. 14 No. 20.
File V14N20.ZIP from The Programmer’s Corner in
Category Recently Uploaded Files
PC Magazine Vol. 14 No. 20.
File Name File Size Zip Size Zip Type
EDHEAD.TXT 321 172 deflated
ESC.BAT 548 290 deflated
FILE.IDZ 17 17 stored
ONCEAMON.BAT 1537 572 deflated
WJ.ZIP 201038 200750 deflated

Download File V14N20.ZIP Here

Contents of the EDHEAD.TXT file


Sub EditCenterHeader()
Prompt$ = "Enter new center header"
Prompt$ = Prompt$ + " or click Cancel to remove header"
With ActiveSheet.PageSetup
CurrentCenterHeader$ = .CenterHeader
.CenterHeader = InputBox(Prompt$, "Center Header", _
CurrentCenterHeader$)
End With
End Sub


 December 6, 2017  Add comments

Leave a Reply