Copy adjacent Sheet and name from a list
On Monday, April 8, 2013 7:34:36 AM UTC-7, Claus Busch wrote:
Hi Howard,
Am Mon, 8 Apr 2013 06:43:10 -0700 (PDT) schrieb Howard:
rngC.Offset(0, 1).Formula = "='" & rngC & "'!G7"
rngC.Offset(0, 2).Formula = "='" & rngC & "'!H7"
rngC.Offset(0, 3).Formula = "='" & rngC & "'!I7"
rngC.Offset(0, 4).Formula = "='" & rngC & "'!J7"
you can shorten it:
rngC.Offset(0, 1).Resize(1, 4).Formula = _
"='" & rngC & "'!G7"
Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2
Thanks, Claus. As I said I envisioned a one liner but clearly beyond my Excel skills.
Funny though, I can read it and understand what its doing. That will be a good one to keep around and refer to.
Thanks again.
Howard
|