That suggests that the variable columns is getting an invalid value. Step
through the code and check the value of all the variables in the line that
sets it.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"brain" wrote in message
...

I'm having a problem with the following function. For some reason, the
function returns before the first MsgBox call. It succesfully deletes
the column, but it exits right after. Any help?

Code:
--------------------

Sub main()
Dim numRates As Integer
Dim numDates As Integer

Const RateOffset As Integer = 5
Const DateOffset As Integer = 3

Dim columns As Range
Dim ratesRange As Range

numRates = Range("IntTimeSeriesRates").Value
numDates = Range("IntTimeSeriesDates").Value

Set columns = Range(Cells(RateOffset, DateOffset + numDates - 1),
Cells(RateOffset + numDates, DateOffset + numDates - 1))
columns.Delete

MsgBox "Hello1"
Set columns = Range(Cells(RateOffset, DateOffset), Cells(RateOffset +
numRates, DateOffset))
columns.Insert shift:=xlToRight

MsgBox "Hello2"
End Sub

--------------------


--
brain
------------------------------------------------------------------------
brain's Profile:
http://www.excelforum.com/member.php...o&userid=32991
View this thread: http://www.excelforum.com/showthread...hreadid=528185