LinkBack URL
About LinkBacks
Something like this.
Dim wBook As String wBook = Application.InputBox("Enter filename and extension.", "FileName", , , , , , 2) Set rSource = Workbooks(wBook).Worksheets("Sheet1").Range("A7:D100")
Something like this.
Dim wBook As String wBook = Application.InputBox("Enter filename and extension.", "FileName", , , , , , 2) Set rSource = Workbooks(wBook).Worksheets("Sheet1").Range("A7:D100")
Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks