why is this not formatting as expected

[MAMIBUSSOL]

What wrong with this code?

    Range("A3:A388").Select
    For A = 1 To 18
        ActiveCell.Offset(0, B + 2).NumberFormat = "$#,##0.00"
        ActiveCell.Offset(0, B + 4).NumberFormat = "$#,##0.00"
        B = B + 7
    Next A

it is changing the formating for the first cell in the list but it is not changing subsequent rows, I don't understand why not

 

[Joe4]

Can you explain which cells that you are trying to change?

Note that format of the OFFSET function is OFFSET(row,column).
So you code is changing column numbers, not row numbers.
(I don't know if that is your intention).

 

[MAMIBUSSOL]

I am formatting columns; or rather attempting to

bit of explaination

I have going across the worksheet 18 batches of 5 columns, each column title is as follows:

Date
Supplier
Total
Paid
VAT
blank
blank
Date
Supplier
Total
Paid
VAT
blank
blank

as a result I attempting to format each total column and each VAT column, because of this I would have thought that this code would work, explaination of what I believe this code does.
It selects the rows I need to format, then processes across each column and changes the format of columns C, E, J, L etc

    Range("A3:A388").Select    For A = 1 To 18        ActiveCell.Offset(0, B + 2).NumberFormat = "$#,##0.00"        ActiveCell.Offset(0, B + 4).NumberFormat = "$#,##0.00"        B = B + 7    Next A
</PRE>

 

[Norie]

You are only formatting the ActiveCell.

Set rng =Range("A3:A388")
    For A =1 To 18
        rng.Offset(0, B + 2).NumberFormat = "$#,##0.00"
        rng.Offset(0, B + 4).NumberFormat = "$#,##0.00"
        B = B + 7
    Next A

 

[MAMIBUSSOL]

Thanks Norie