Sub AddReport()
'Assume activeworkbook contains the range names and Sheet1 contains the
formulas referring to those range names
Sheet1.Copy befo=Sheets(1)
Application.Calculate
End Sub

"Kenneth Hobson" wrote:


Maybe if you posted example code or an example xls, it would help us
help you more easily.


--
Kenneth Hobson
------------------------------------------------------------------------
Kenneth Hobson's Profile: http://www.thecodecage.com/forumz/member.php?userid=413
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=105840