View Single Post
  #19   Report Post  
Posted to microsoft.public.excel.programming
Howard Howard is offline
external usenet poster
 
Posts: 536
Default 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