I am having a Macro "hang" or I cannot cancel when I run, it has to time
itself out. Here is the code

Dim MyPath As String, FilesInPath As String
Dim myFiles() As String
Dim SourceCcount As Long, FNum As Long
Dim mybook As Workbook, BaseWks As Worksheet
Dim sourceRange As Range, destrange As Range
Dim Cnum As Long, CalcMode As Long


MyPath = ThisWorkbook.Worksheets(1).Range("b10")



If Right(MyPath, 1) < "\" Then
MyPath = MyPath & "\"
End If