This code is self explanitory
Sub CopyandDefine()
Set SourceRange = Sheets("Sheet1").Range("A1:C3")
Set DestStart = Sheets("Sheet2").Range("B30")
SourceRows = SourceRange.Rows.Count
SourceCols = SourceRange.Columns.Count
Set DestEnd = DestStart.Offset(SourceRows - 1, SourceCols - 1)
Set DestRange = Range(DestStart, DestEnd)
DestString = DestRange.Address(external:=True, ReferenceStyle:=xlR1C1)
ActiveWorkbook.Names.Add Name:="joel", RefersToR1C1:="=" & DestString
End Sub
--
joel
------------------------------------------------------------------------
joel's Profile:
http://www.thecodecage.com/forumz/member.php?userid=229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=159845
Microsoft Office Help