Append Information from a Website

[thechazm]

Something like the following would be close to working.

For i = 1 to xlsSheet.UsedRange.Rows Step 1
     if isnumeric(xlsSheet.cells(i,2)) = True then
          R = i
          Exit For
     end if
Next i

 

[LadyDi]

That works great. Thank you so much for your assistance.

I sort of got the multiple select to work with SharePoint. I wound up saving the SharePoint directory like I would map to a regular network drive. Then when I use this function, I just click on that directory and the multiple select function works like it should. For some strange reason, I just can't get it to go there automatically.

 

[thechazm]

Weird. Glad you got it working though. Have a good one.