Ozan hocam sağolunuz.Denedim güzel çalışıyor.Dropbox yada Googledriver olarak nasıl ayarlanır?
Ayrıca dosya açılınca 64bit için hata veriyordu ptrsafe ekledim alttaki gibi.İlgilenen olursa diye yazdım.

#If VBA7 Then

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long