Figured it out.

Sub Macro3()

Dim FirstCell As String
Dim LastCell As String

FirstCell = Range("BeginRangeCell")
LastCell = Range("EndRangeCell")


Sheets("Import Sheet").Select
Range(FirstCell & ":" & LastCell).Select
Selection.Copy
End Su

--
Message posted from http://www.ExcelForum.com