This is what I have so far
Dim firstRange As Range
Dim secRange As Range
Dim percentage As Integer
Dim numCols As Integer
On Error Resume Next

Set firstRange = Application.InputBox(Prompt:="Input", Title:="DAT
RANGE", Type:=8)
percentage = Application.InputBox("Enter a %")
Set secRange = Application.InputBox(Prompt:="Output", Title:="DAT
RANGE", Type:=8

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