Dear Mangesh,
Thanks a lot for the code. I am a dummie ..so please explain me on
where and how to run the code.
I am using MS office 2000
Raja
Mangesh Yadav Wrote:
Run this VBA code
Sub RunThis()
ReDim ShtNames(0 To Worksheets.Count - 1)
i = 0
For Each sht In Worksheets
ShtNames(i) = sht.Name
i = i + 1
Next
For j = 1 To UBound(ShtNames)
Worksheets(ShtNames(j)).Range("D5") = "=" & ShtNames(j - 1) & "!D4"
Next
End Sub
This will do the following:
In Aug2 sheet cell D5, it will put =Aug1!D4
and so on.
Mangesh
--
Raja
------------------------------------------------------------------------
Raja's Profile:
http://www.excelforum.com/member.php...o&userid=25901
View this thread:
http://www.excelforum.com/showthread...hreadid=393232