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