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

Application.Goto Reference:=Worksheets("sheet1").Range("F1"), _
Scroll:=True

or look at
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollRow = 1

--
Regards,
Tom Ogilvy


"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

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