Dim fullPath() As String Dim wbIndex As Long Dim wbName as String Dim wbAddr as String ‘ Wbaddr holds the full path for example: ” D:\Documents and Settings\Desktop\Preeti\macro\Input.xls” fullPath() = Split(wbAddr, “\”) ‘Put Parts of the path into the array…