Hi,

VBA macro which adds hyperlink into the spreadsheet was initially created in Excel 2003. I then saved that spreadsheet as excel 2010. Works perfectly fine for less data (row below 65k) but raise an error for anything greater than that. For instance, I have 70000 records, now macro runs fine and adds hyperlink to all 65532 records but then straight after it gets terminated with "Application defined or Object defined" error (number 1004). Following is the macro code. It would be really helpful if someone can help me



Sub AddHyperlinks()

Dim IDVal As Range
Dim IDQuant As Long
Dim CurrentSelection As Range

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Set CurrentSelection = ActiveWindow.RangeSelection
IDQuant = CurrentSelection.Rows.Count

For rownum = 2 To IDQuant
Set IDVal = Range("A" & rownum)
Range("J" & rownum).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.nla-eclips.com/NLAAPI.dll/GetObject?ObjectID=" & IDVal, TextToDisplay:=CStr(IDVal)

Next rownum.

Hi

Are you running this macro on XLS or XLSX file?

Regards
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)