Take a look at the InputBox method of the Application
object using Type 8 in the help file. That might be
better for what you're trying to do.

-Brad
-----Original Message-----
I currently need to change the following so that I can
select a variable amount of rows, rather than 1 column.
I
am sure that it has to do with the str_column, but can
not
figure out how! this is the script I am presently
working
with:

Const target_wb = "VCS Merge Data WORKBOOK.xls"
Dim str_column
Dim file_name
Dim source_wb
Dim str_search As String
Dim str_replace As String

file_name = Application.GetOpenFilename
Workbooks.Open Filename:=CStr(file_name)
source_wb = ActiveWindow.Caption
str_column = InputBox("Enter your column to copy")
str_column = str_column & ":" & str_column
.