Active X Error

[Pauljj]

Macro had been working fine now I get a message saying

Run time error 429

ActiveX component cannot create object

The code I have is ....


finalrow = Cells(Rows.Count, 2).End(xlUp).Row

For i = finalrow To 4 Step -1

If Cells(i, 13) = "AST" Or Cells(i, 13) = "SST" Then

Range(Cells(i, 2), Cells(i, 14)).Delete

End If

Next i

Range("A3").Select
Selection.AutoFill Destination:=Range("A3:A1229")
Range("A3:P" & finalrow).Sort Key1:=Range("H3"), Order1:=xlAscending, Key2:= _
Range("G3"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal

End sub




Any ideas please as setting this small bit of code for various reason is driving me completely bonkers!!!

 

[Norie]

Is that all the code?

Which line causes the error?

 

[Pauljj]

As soon as it starts, it doesn't get anywhere

 

[Norie]

Where is this code located?

Is it definitely all the code?

 

[Pauljj]

Well very oddly, I closed it all down and re-opened it and now it works fine.....I think I am going mad...sorry for wasting your time