the object invoked has disconnected from its clients

[excellar]

I posted this question:

"Say I have the following data all in the same column:

/****** Object: [Table1]
AD
RW
SD
TD
GG
/****** Object: [Table 2]
LK
IM
HJ
/****** Object:[Table 3]
PQ
WE

Before each row containing /****** I want to insert a new, empty row. How can I do this?

Things to note:
- in between the rows containing '/******' there is a different number of rows of data each time
- each row containing /****** is followed by data which is different each time e.g. Table 1, Table 2, Table 3"


The following code was suggested to me:

"Public Sub InsertBeforeAsterisks()
Range("A1").Select
Do Until ActiveCell = ""
While ActiveCell <> "/******"
ActiveCell.Offset(1, 0).Select
Wend
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(2, 0).Select
Loop
End Sub"

However, when I try and run this code, Excel stops responding and I get and error: "the object invoked has disconnected from its clients"

Any ideas how to resolve this? Could it have anything to do with running on Vista?

Thanks

[VBA Noob]

excellar,

Please read forum rules below. Duplicate post closed and you also need to wrap your code

VBA Noob