On Aug 4, 6:33*am, prkhan56 wrote:
Hello All

I am using XP/Office2003

I am trying to sum columns (including blanks) with specific Headings.

My headings are as follows starting in Column B, Row 4
Heading1, Heading2, Heading3,……..Heading11.

Heading numbers will increase/decrease for various reports.

In current report, I have recorded the following macro which sums
Column Heading9 and 10

Sub Macro3 ()
Range("J45").Select
* * ActiveCell.FormulaR1C1 = "=SUM(R[-40]C:R[-1]C)"
* * ActiveWindow.SmallScroll Down:=0
* * Range("K45").Select
* * ActiveCell.FormulaR1C1 = "=SUM(R[-40]C:R[-1]C)"
* * ActiveWindow.SmallScroll Down:=12
End Sub

The Heading names will change if there are fewer columns…but the text
will be same always.

I wish to have a macro which should look for the text eg “aaaa” and
“bbbb” and sum these columns.

Number of Rows will also vary. *The macro should therefore look up for
the text “aaaa” and “bbbb” in Row 4 headings and sum up these two
columns (including blanks)

Any help would be appreciated.

TIA

Rashid Khan

Sub subspecificcolumnsSAS() 'sum colums with specific headers
ma = Array("aaaa", "bbbb")
For Each t In ma
'MsgBox t
mc = Rows(1).Find(What:=t, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase _
:=False, SearchFormat:=False).Column
'MsgBox mc
clr = Cells(Rows.Count, mc).End(xlUp).Row
'MsgBox clr
'MsgBox Application.Sum(Range(Cells(4, mc), Cells(clr, mc)))
Cells(45, mc).Value = Application.Sum(Range(Cells(1, mc), Cells(clr,
mc)))
Next t
End Sub