try this idea
Sub gotomonth()
On Error Resume Next
x = Rows(2).Find(Month(Date)).Column
Application.Goto Cells(1, x), Scroll
End Sub

--
Don Guillett
SalesAid Software

"tom1646" wrote in message
...
I would like to specify a condition that makes every worksheet within a
workbook open so that the current month column is displayed as the left
hand
column. The problem is that the current month column is not the same
column
(ie not all C) across the worksheets. I can wrte a little if statement to
say if column header matches Feb but do not know how to say ...Then
position
this column as left column.

Can anyone help?

Thanks,

Tom