SOLVED IT :

modified the code and had replaced a few lines with 

Dim MySource01
   Dim MyDestination01
   Dim fn
   On Error Resume Next   ' if file is open it will not be copied
   MySource01 = Sheets("Sheet1").Range("A30")
   MyDestination01 = Sheets("Sheet1").Range("A24")
   
   ' ensure closing \ is there
   If Right(MySource01, 1) <> "\" Then MySource01 = MySource01 & "\"
   If Right(MyDestination01, 1) <> "\" Then MyDestination01 = MyDestination01 & "\"
   
   
   fn = Dir(MySource01 & "*.*")
   
   Do While Not fn = ""
   
   FileCopy MySource01 & fn, MyDestination01 & fn
   
   fn = Dir()
   Loop
Courtesy : http://en.allexperts.com/q/Excel-105...-Using-VBA.htm