LinkBack URL
About LinkBacks
Sub DataFromClosedBook() Dim stPath as string, stFile as string stPath = "c:\extract data\" stFile = "r.xls" ThisWorkbook.Worksheets(1).Range("a1:a10").Formula = "='" & stPath & "[" & stFile & "]Sheet1'!$A$1:$A$10" End Sub
Sub DataFromClosedBook() Dim stPath as string, stFile as string stPath = "c:\extract data\" stFile = "r.xls" ThisWorkbook.Worksheets(1).Range("a1:a10").Formula = "='" & stPath & "[" & stFile & "]Sheet1'!$A$1:$A$10" End Sub
Josie
if at first you don't succeed try doing it the way your wife told you to
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks