Sub addcolumns()

LastCol = Cells(1, Columns.Count).End(xlToLeft).Column

ColCount = LastCol
Do While ColCount 1
If Cells(1, ColCount) Cells(1, ColCount - 1) + 1 Then
Columns(ColCount).Insert
Cells(1, ColCount) = Cells(1, ColCount + 1) - 1
Else
ColCount = ColCount - 1
End If
Loop

End Sub


"Stuart" wrote:

Hello

I hope someone could help me with what I think is a small macro.

I have dates going across the rows but they do not include the weekend
dates.

So in column A it should have 01/01/09 all the way through to half way
through the year being 30/06/09. (This should be changeable.)

The problem I have is that there is no columns for the weekend and
holidays. I only have business dates.

We would need a macro to search along row A to find a missing date.
I.e it jumps from 1 to 3 Jan. It should find that 2 Jan 09 is missing
and then insert a column and insert the date.

In the row immediately underneathe where the date has been inserted I
think need to copy the cell immediately previous to this one.

Can someone please help me with a macro for the above? Sorry if what
I am saying is unclear but I have described it in a way that I think
things should happen.

Thanks in advance,

Best etc

Stuart