Hey Guys See code below
'---------------------------------------------------------------------------------------
' Module : Module3_get_excell_files
' DateTime : 11/23/2012 15:05
' Author : Mark
' Purpose : This module gets the needed Excel Files for the newly created Current Project
'---------------------------------------------------------------------------------------
Option Explicit
Sub gtc_move_Excell()
'Declare Varibles
Dim sSourceDir As String
Dim sBackDir As String
Dim sNextFile As String
Dim sDriveLetter As String
Dim currpath As String
Dim ws As String
'Dim gtcprojnum As Double
On Error GoTo FileCopyError
'Change to The Excel Data to prepare for file move....
ChDir "Excel Data"
'Change these paths to suit.
sSourceDir = "V:\gtc_proj\Excel_Data\"
sDriveLetter = Left$(CurDir$(), 1)
currpath = CurDir$([sDriveLetter])
sBackDir = gtcprojnum 'Global Varible set in Module 1
sNextFile = Dir$(sSourceDir & "*.XLS")
While sNextFile <> ""
FileCopy sSourceDir & sNextFile, sBackDir & sNextFile
sNextFile = Dir$
Wend
MsgBox "Excel Files W/Prefix are in place. On to the Data Extraction Files..." (this is where I would like to continue on without the user having to hit OK) is this possible?
any help appreciated!