The code below opens all files individually within a specific folder, Copies all then Pastes back the Values only. What I'm looking to change in this code is to instead prompt me to select a folder from my C: Drive and not limit me to just one specific folder then continue with the rest of the process. Can anyone Help?
Code:
Sub PasteSpclOnly()
Application.DisplayAlerts = False
Dim myDir As String, fn As String, ws As Worksheet
myDir = "C:\Documents and Settings\levanoj\Desktop\LAB\"
fn = Dir(myDir & "\*.xls")
Do While fn <> ""
With Workbooks.Open(myDir & "\" & fn)
For Each ws In .Worksheets
ws.UsedRange.Copy
ws.UsedRange.PasteSpecial xlPasteValues
Next
.Close True
End With
fn = Dir
Loop
Application.DisplayAlerts = True
End Sub