Changing VBA code into VBA Arrays

[Legacy 93538]

Hi

I needs some help with arrays. I never use arrays and i dont understand them. I need to turn the following three pieces of code into three arrays but i have no idea how:

wbNew.Sheets("MTH").Range("B2:FF4000").Copy
wbGCT.Sheets("MTH").Range("B2:FF4000").PasteSpecial
wbNew.Sheets("MTHPrevious").Range("B2:FF4000").Copy
wbGCT.Sheets("MTHPrevious").Range("B2:FF4000").PasteSpecial
wbNew.Sheets("YTD").Range("B2:FF3000").Copy
wbGCT.Sheets("YTD").Range("B2:FF3000").PasteSpecial
wbNew.Sheets("YTDPrevious").Range("B2:FF3000").Copy
wbGCT.Sheets("YTDPrevious").Range("B2:FF3000").PasteSpecial
wbNew.Sheets("R12").Range("B2:FF3000").Copy
wbGCT.Sheets("R12").Range("B2:FF3000").PasteSpecial
wbNew.Sheets("R12Previous").Range("B2:FF3000").Copy
wbGCT.Sheets("R12Previous").Range("B2:FF3000").PasteSpecial

Sheets("Graphing").Select: Range("A1").Select: Sheets("Settings").Select: Range("A1").Select
Sheets("R12Previous").Select: Range("A1").Select: Sheets("R12").Select: Range("A1").Select
Sheets("YTDPrevious").Select: Range("A1").Select: Sheets("YTD").Select: Range("A1").Select
Sheets("MTHPrevious").Select: Range("A1").Select: Sheets("MTH").Select: Range("A1").Select
Sheets("Charts").Select: Range("A1").Select: Sheets("Home").Select: Range("A1").Select

Sheets("Graphing").Visible = xlSheetVeryHidden
Sheets("Settings").Visible = xlSheetVeryHidden
Sheets("R12Previous").Visible = xlSheetVeryHidden
Sheets("R12").Visible = xlSheetVeryHidden
Sheets("YTDPrevious").Visible = xlSheetVeryHidden
Sheets("YTD").Visible = xlSheetVeryHidden
Sheets("MTHPrevious").Visible = xlSheetVeryHidden
Sheets("MTH").Visible = xlSheetVeryHidden

Can anyone please help me?

Thanks

Jessicaseymour

 

[RoryA]

I never use arrays and i dont understand them. I need to turn the following three pieces of code into three arrays but i have no idea how:

Then why do you want to do this, and what do you mean exactly?

 

[Legacy 93538]

Unfortunatly i have to, its the way my company write VBA they use arrays alot and i must comply.

Sorry i should explain i wrote the three bits of code and i have been asked to change them so they use arrays so it loops through an array instead of repeating the same line of code.

 

[wigi]

For instance:

    For Each sht In Array("Graphing", "Settings", "R12Previous", "R12", "YTDPrevious", "YTD", "MTHPrevious", "MTH")
        Sheets(sht).Visible = xlSheetVeryHidden
    Next

Wigi

 

[RoryA]

For example:

Dim varSheets, varSheet
varSheets = Array("MTH", "MTHPrevious", "YTD")
for each varsheet in varsheets
   wbNew.Sheets(varsheet).Range("B2:FF4000").Copy
wbGCT.Sheets(varsheet).Range("B2:FF4000").PasteSpecial
next varsheet

 

[Legacy 93538]

Hi

Thanks that works!

But how can i use that for the code below:

wbNew.Sheets("MTH").Range("B2:FF4000").Copy
wbGCT.Sheets("MTH").Range("B2:FF4000").PasteSpecial

wbNew.Sheets("MTHPrevious").Range("B2:FF4000").Copy
wbGCT.Sheets("MTHPrevious").Range("B2:FF4000").PasteSpecial

wbNew.Sheets("YTD").Range("B2:FF3000").Copy
wbGCT.Sheets("YTD").Range("B2:FF3000").PasteSpecial

wbNew.Sheets("YTDPrevious").Range("B2:FF3000").Copy
wbGCT.Sheets("YTDPrevious").Range("B2:FF3000").PasteSpecial

wbNew.Sheets("R12").Range("B2:FF3000").Copy
wbGCT.Sheets("R12").Range("B2:FF3000").PasteSpecial

wbNew.Sheets("R12Previous").Range("B2:FF3000").Copy
wbGCT.Sheets("R12Previous").Range("B2:FF3000").PasteSpecial

 

[wigi]

Look at Rory's proposal.

 

[Legacy 93538]

Hi

Thanks to everyone who helped me!! all working now thanks so much!!!

I greatly appricate everyones help!!!!!!