M
Mike Lewis
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
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