Databases Reference
In-Depth Information
'Activate the Workbook in which Footers are to be added
Call ActivateWorkbook(Workbook$)
'Loop through each sheet, activate, and set footers
For Each ws In Worksheets
Sheets(ws.Name).Activate
GoSub Format_Sheet
Next
'All done
Exit Sub
Format_Sheet:
'This section will add the Footer to each selected sheet!
Select Case header
Case True
With ActiveSheet.PageSetup
.LeftHeader = ltxt$
.CenterHeader = mtxt$
.RightHeader = rtxt$
End With
Case False
With ActiveSheet.PageSetup
.LeftFooter = ltxt$
.CenterFooter = mtxt$
.RightFooter = rtxt$
End With
End Select
Return
End Sub
When creating reports with VBA, a very common need is to add additional columns or rows
before preexisting columns or rows. The next two subroutines handle the process easily.
Sub InsertColumns(wkbook, wksht, colno, number)
'Subroutine inserts "number" of blank columns in wksht before
column number (colno)
Dim ii As Integer
Columns(colno).Select
For ii = 1 To number
Selection.Insert Shift:=xlToRight
Next ii
End Sub
Sub InsertRows(wkbook, wksht, rowptr, number)
'Subroutine inserts "number" of blank rows in wksht @ rowptr
'Pass Rowptr by Reference to retain ending row position
Dim RRange$
'Select Workbook and Worksheet
