Hi, I am trying to complete the following based off your code but I don't think I got this correct....ANY help on this would be most appreciated....
What I am trying to do is copy multiple excel workbooks (in particular order) into other excel workbooks (in particular order)
I don't know if I got any part of this correctly but please help correct any part of the code that I got wrong...
testStrArr()
'Dim myArr(1 To 3) As String
Dim myArr(1 To 49) As String
Dim myArr1(50-98) As String
Dim myStr$, ws As Worksheet
myArr(1) = Workbooks("ALLIED PACIFIC OF CALIF*").name
myArr(2) = Workbooks("ALPHA MSO*").name
myArr(3) = Workbooks("AMM*").name
myArr(4) = Workbooks("ANCHOR MEDICAL*").name
myArr(5) = Workbooks("APPLECARE*").name
myArr(6) = Workbooks("AXMINSTER MEDICAL GROUP*").name
myArr(7) = Workbooks("BROWN AND TOLAND*").name
myArr(8) = Workbooks("CALIFORNIA PCP ON PPO*").name
myArr(9) = Workbooks("CHOICE PHYSICIANS NETWK*").name
myArr(10) = Workbooks("CITRUS VALLEY PHYSICIANS GROUP*").name
myArr(11) = Workbooks("COAST*").name
myArr(12) = Workbooks("DIGNITY HEALTH*").name
myArr(13) = Workbooks("EMPIRE PHYSICIANS MEDGRP*").name
myArr(14) = Workbooks("EPIC HEALTH PLAN*").name
myArr(15) = Workbooks("FACEY*").name
myArr(16) = Workbooks("HEALTHCARE PARTNERS*").name
myArr(17) = Workbooks("HEMET COMMUNITY*").name
myArr(18) = Workbooks("HILL PHYSICIANS MEDICAL GROUP*").name
myArr(19) = Workbooks("HISPANIC PHYSICIAN*").name
myArr(20) = Workbooks("JOHN MUIR*").name
myArr(21) = Workbooks("KEY MEDICAL*").name
myArr(22) = Workbooks("MAVERICK*").name
myArr(23) = Workbooks("MCKESSON*").name
myArr(24) = Workbooks("MCKESSON - VALLEY*").name
myArr(25) = Workbooks("MCKESSON - VALLEY CARE SELECT*").name
myArr(26) = Workbooks("MEMORIALCARE*").name
myArr(27) = Workbooks("MID COUNTY*").name
myArr(28) = Workbooks("MONARCH*").name
myArr(29) = Workbooks("NAMM*").name
myArr(30) = Workbooks("OMNI IPA*").name
myArr(31) = Workbooks("PALO ALTO MEDICAL FOUNDATION*").name
myArr(32) = Workbooks("PDTRUST*").name
myArr(33) = Workbooks("SANJOSE*").name
myArr(34) = Workbooks("SANTA CRUZ*").name
myArr(35) = Workbooks("PREFERRED IPA OF CA*).name
myArr(36) = Workbooks("PROSPECT*).name
myArr(37) = Workbooks("RIVERSIDE MEDICAL CLINIC*).name
myArr(38) = Workbooks("RIVERSIDE PHYSICIAN NETWORK*).name
myArr(39) = Workbooks("SAN BERNARDINO MEDICAL GROUP*).name
myArr(40) = Workbooks("SANDIEGO PHYSICIANS MED GRP*).name
myArr(41) = Workbooks("SANTA CLARA COUNTY IPA*).name
myArr(42) = Workbooks("SANTE COMMUNITY PHYS*).name
myArr(43) = Workbooks("SGMF - SAN JOAQUIN*).name
myArr(44) = Workbooks("SUTTER EAST BAY*).name
myArr(45) = Workbooks("SYNERMED*).name
myArr(46) = Workbooks("TORRANCE HOSPITAL IPA*).name
myArr(47) = Workbooks("UCSD MG*).name
myArr(48) = Workbooks("UNIVERSITY HEALTHCARE*).name
myArr(49) = Workbooks("VANTAGE*).name
'myArr(99) = Workbooks("ALLCARE IPA*).name
myArr1(50) = Workbooks("Report-ALLIED PACIFIC OF CALIF*").name
myArr1(51) = Workbooks("Report-ALPHA MSO*").name
myArr1(52) = Workbooks("Report-AMM*").name
myArr1(53) = Workbooks("Report-ANCHOR MEDICAL*").name
myArr1(54) = Workbooks("Report-APPLECARE*").name
myArr1(55) = Workbooks("Report-AXMINSTER MEDICAL GROUP*").name
myArr1(56) = Workbooks("Report-BROWN AND TOLAND*").name
myArr1(57) = Workbooks("Report-CALIFORNIA PCP ON PPO*").name
myArr1(58) = Workbooks("Report-CHOICE PHYSICIANS NETWK*").name
myArr1(59) = Workbooks("Report-CITRUS VALLEY PHYSICIANS GROUP*").name
myArr1(60) = Workbooks("Report-COAST*").name
myArr1(61) = Workbooks("Report-DIGNITY HEALTH*").name
myArr(62) = Workbooks("Report-EMPIRE PHYSICIANS MEDGRP*").name
myArr(63) = Workbooks("Report-EPIC HEALTH PLAN*").name
myArr(64) = Workbooks("Report-FACEY*").name
myArr(65) = Workbooks("Report-HEALTHCARE PARTNERS*").name
myArr(66) = Workbooks("Report-HEMET COMMUNITY*").name
myArr(67) = Workbooks("Report-HILL PHYSICIANS MEDICAL GROUP*").name
myArr(68) = Workbooks("Report-HISPANIC PHYSICIAN*").name
myArr(69) = Workbooks("Report-JOHN MUIR*").name
myArr(70) = Workbooks("Report-KEY MEDICAL*").name
myArr(71) = Workbooks("Report-MAVERICK*").name
myArr(72) = Workbooks("Report-MCKESSON*").name
myArr(73) = Workbooks("Report-MCKESSON - VALLEY*").name
myArr(74) = Workbooks("Report-MCKESSON - VALLEY CARE SELECT*").name
myArr(75) = Workbooks("Report-MEMORIALCARE*").name
myArr(76) = Workbooks("Report-MID COUNTY*").name
myArr(77) = Workbooks("Report-MONARCH*").name
myArr(78) = Workbooks("Report-NAMM*").name
myArr(79) = Workbooks("Report-OMNI IPA*").name
myArr(80) = Workbooks("Report-PALO ALTO MEDICAL FOUNDATION*").name
myArr(81) = Workbooks("Report-PDTRUST*").name
myArr(82) = Workbooks("Report-SANJOSE*").name
myArr(83) = Workbooks("Report-SANTA CRUZ*").name
myArr(84) = Workbooks("Report-PREFERRED IPA OF CA*).name
myArr(85) = Workbooks("Report-PROSPECT*).name
myArr(86) = Workbooks("Report-RIVERSIDE MEDICAL CLINIC*).name
myArr(87) = Workbooks("Report-RIVERSIDE PHYSICIAN NETWORK*).name
myArr(88) = Workbooks("Report-SAN BERNARDINO MEDICAL GROUP*).name
myArr(89) = Workbooks("Report-SANDIEGO PHYSICIANS MED GRP*).name
myArr(90) = Workbooks("Report-SANTA CLARA COUNTY IPA*).name
myArr(91) = Workbooks("Report-SANTE COMMUNITY PHYS*).name
myArr(92) = Workbooks("Report-SGMF - SAN JOAQUIN*).name
myArr(93) = Workbooks("Report-SUTTER EAST BAY*).name
myArr(94) = Workbooks("Report-SYNERMED*).name
myArr(95) = Workbooks("Report-TORRANCE HOSPITAL IPA*).name
myArr(96) = Workbooks("Report-UCSD MG*).name
myArr(97) = Workbooks("Report-UNIVERSITY HEALTHCARE*).name
myArr(98) = Workbooks("Report-VANTAGE*).name
'myArr(100) = Workbooks("Report-ALLCARE IPA*).name
x = 0
For Each ws In ThisWorkbook.Worksheets
x = x + 1
End If
Next
For Each ws In Workbooks(myArr).Worksheets
If myStr & ws.Name
Next
Let y = Len(myStr)
If CBool
Then _
Workbooks.sheets(myArr).Copy
Workbooks.sheets(myArr1).Paste
End Sub
