Dec 062017
| 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
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