Sub Open_To_Close()
Dim ClosingRange As Range
Dim OpeningRange As Range
Set ClosingRange = ActiveSheet.Range("g5:g195")
Set OpeningRange = Worksheets(ActiveSheet.Index +
1).Range("e5:e195")
OpeningRange.Value = ClosingRange.Value
End Sub

Just run it ONLY when you are on the previous month (i.e. the month
with the closing range.) This is also assuming that your tabs are in
order of months.


--
kraljb
------------------------------------------------------------------------
kraljb's Profile: http://www.excelforum.com/member.php...fo&userid=9955
View this thread: http://www.excelforum.com/showthread...hreadid=399037