Compile Error: Procedure too large?!?

D

dapoole

New Member
Joined
Jul 20, 2004
Messages
22
Hi Excel Gurus

I have the following procedure that always errors saying that it is "too large" when I try to compile it. However I need everything in this procedure to run from a macro, so how could I get round this?

All help greatly appreciated.

Cheers
David

------------------------------
Sub Auto_Open()

runupdate = MsgBox("Do you wish to update the spreadsheet ?", vbYesNo)
If runupdate = vbYes Then
allupdate = MsgBox("Can all checks across all Oracle instances be verified?", vbYesNo)
If allupdate = vbYes Then

Sheets("rbt1").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"

Sheets("edw1").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Sheets("metprd").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"



Sheets("uk01").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"



Sheets("bor1").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Sheets("ods1").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Sheets("pin1").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Sheets("dimprd - statsux01").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"



Sheets("dimprd - npss01").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Sheets("nms01").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Sheets("nms02").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Sheets("gwrepprd").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Sheets("rcat").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Sheets("capital").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Sheets("cduprd").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"



Sheets("ecprd").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Sheets("ipaprd").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Sheets("rxprd").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Sheets("skysms").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"

Sheets("ict1").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Sheets("P01").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"

Sheets("remedy1").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"

Sheets("NMSPRD").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"

Sheets("TRPRT").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"

Sheets("TRPOL").Select
Range("A1").Select

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"


Else

' Loop through all selected sheets.
Sheets("pin1").Select
Call Finddate
Sheets("dimprd - statsux01").Select
Call Finddate
Sheets("dimprd - npss01").Select
Call Finddate
Sheets("nms01").Select
Call Finddate
Sheets("nms02").Select
Call Finddate
Sheets("gwrepprd").Select
Call Finddate
Sheets("rcat").Select
Call Finddate
Sheets("capital").Select
Call Finddate
Sheets("cduprd").Select
Call Finddate
Sheets("ecprd").Select
Call Finddate
Sheets("ipaprd").Select
Call Finddate
Sheets("rxprd").Select
Call Finddate
Sheets("skysms").Select
Call Finddate
Sheets("edw1").Select
Call Finddate
Sheets("ods1").Select
Call Finddate
Sheets("metprd").Select
Call Finddate
Sheets("bor1").Select
Call Finddate
Sheets("uk01").Select
Call Finddate
Sheets("P01").Select
Call Finddate
Sheets("ict1").Select
Call Finddate
Sheets("rbt1").Select
Call Finddate
Sheets("remedy1").Select
Call Finddate
Sheets("NMSPRD").Select
Call Finddate
Sheets("TRPRT").Select
Call Finddate
Sheets("TRPOL").Select
Call Finddate


End If

End If

End Sub
-------------------------------------------
 

Excel Facts

Is there a shortcut key for strikethrough?
Ctrl+S is used for Save. Ctrl+5 is used for Strikethrough. Why Ctrl+5? When you use hashmarks to count |||| is 4, strike through to mean 5.
Sort by date Sort by votes
David

There's a lot of redundant code there, for example the following
Code: 
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Y"
Can be replaced with this.
Code: 
ActiveCell.Offset(2, 0).FormulaR1C1 = "Y"

And I think, though I'm not 100% sure, this
Code: 
ActiveCell.Offset(2, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y"
Could be replaced with this.
Code: 
ActiveCell.Offset(2, 0).Resize(4, 1) = "Y"
 
Upvote 0
You could try removing the unnecessary Activating and Selecting. For example:

Code: 
Range("A1").Select 

Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlFormulas, _ 
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
MatchCase:=False, SearchFormat:=False).Activate 

ActiveCell.Offset(2, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y"

could be:

Code: 
Dim Rng As Range 'Note you only need this once
Set Rng = Range("A1") 

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _ 
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y" 
Rng.Offset(3, 0.FormulaR1C1 = "Y" 
Rng.Offset(4, 0)..FormulaR1C1 = "Y" 
Rng.Offset(5, 0).FormulaR1C1 = "Y"
 
Upvote 0
Another one I'm not 100% sure about.

This
Code: 
ActiveCell.Offset(2, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(2, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(2, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y" 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveCell.FormulaR1C1 = "Y"
could be replaced with this.
Code: 
ActiveCell.Offset(2, 0).Resize(7, 1) = "Y"
ActiveCell.Offset(10, 0).Resize(7, 1) = "Y"
ActiveCell.Offset(18, 0).Resize(7, 1) = "Y"
ActiveCell.Offset(26, 0).Resize(7, 1) = "Y"
 
Upvote 0
Also, it looks like most of your "sheet" pieces are repetitive. You could loop through an array of sheets and execute the same code.

Either hardcode the array or pull it realtime from an "admin" sheet in your workbook.

This code uses your original code, you would want to take the previous suggestions in to account also

Code: 
aSheets(1) = sheet1.name
aSheets(2) = sheet2.name

i = 1

do until i = ubound(aSheets,1)
    Sheets(aSheets(i)).Select 
    Range("A1").Select 

    Cells.Find(What:=ActiveCell.Value, After:=ActiveCell,                     LookIn:=xlFormulas, _ 
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False).Activate 

    ActiveCell.Offset(2, 0).Range("A1").Select 
    ActiveCell.FormulaR1C1 = "Y" 
    ActiveCell.Offset(1, 0).Range("A1").Select 
    ActiveCell.FormulaR1C1 = "Y" 

    i = i + 1
Loop
 
Upvote 0
Thanks for all the help. The code has to update 20 plus worksheets by running a macro each morning to fill out the column of each worksheet for that day. I am sure it could be shorted just not sure how.

Cheers
David
 
Upvote 0
David

Andrew, Chris and myself have all given you pointers to how it could be shortened.

Why not try implementing some of our ideas? :)
 
Upvote 0
Thanks guys got it sorted. Although its still quite long I have it working now. This is what I did (so well done to however suggested it - a star on its way):

Sub Auto_Open()

runupdate = MsgBox("Do you wish to update the spreadsheet ?", vbYesNo)
If runupdate = vbYes Then
allupdate = MsgBox("Can all checks across all Oracle instances be verified?", vbYesNo)
If allupdate = vbYes Then

Sheets("rbt1").Select
Dim Rng As Range 'Note you only need this once
Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"

Sheets("edw1").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("metprd").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"


Sheets("uk01").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"


Sheets("bor1").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("ods1").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("pin1").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("dimprd - statsux01").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"


Sheets("dimprd - npss01").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("nms01").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("nms02").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("gwrepprd").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("rcat").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("capital").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("cduprd").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"


Sheets("ecprd").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("ipaprd").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("rxprd").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("skysms").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("ict1").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("P01").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("remedy1").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("NMSPRD").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("TRPRT").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Sheets("TRPOL").Select

Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

Else

' Loop through all selected sheets.
Sheets("pin1").Select
Call Finddate
Sheets("dimprd - statsux01").Select
Call Finddate
Sheets("dimprd - npss01").Select
Call Finddate
Sheets("nms01").Select
Call Finddate
Sheets("nms02").Select
Call Finddate
Sheets("gwrepprd").Select
Call Finddate
Sheets("rcat").Select
Call Finddate
Sheets("capital").Select
Call Finddate
Sheets("cduprd").Select
Call Finddate
Sheets("ecprd").Select
Call Finddate
Sheets("ipaprd").Select
Call Finddate
Sheets("rxprd").Select
Call Finddate
Sheets("skysms").Select
Call Finddate
Sheets("edw1").Select
Call Finddate
Sheets("ods1").Select
Call Finddate
Sheets("metprd").Select
Call Finddate
Sheets("bor1").Select
Call Finddate
Sheets("uk01").Select
Call Finddate
Sheets("P01").Select
Call Finddate
Sheets("ict1").Select
Call Finddate
Sheets("rbt1").Select
Call Finddate
Sheets("remedy1").Select
Call Finddate
Sheets("NMSPRD").Select
Call Finddate
Sheets("TRPRT").Select
Call Finddate
Sheets("TRPOL").Select
Call Finddate


End If

End If

End Sub
 
Upvote 0
Does this work?

By the way what is range is the find meant to be looking for and are you running this code on every sheet in the workbook?
Code: 
Sub Auto_Open()
Dim Rng As Range 'Note you only need this once

runupdate = MsgBox("Do you wish to update the spreadsheet ?", vbYesNo)

If runupdate = vbYes Then

    allupdate = MsgBox("Can all checks across all Oracle instances be verified?", vbYesNo)
    
    If allupdate = vbYes Then
        
        Sheets("rbt1").Select
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(4, 1) = "Y"
        
        Sheets("edw1").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("metprd").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        
        Sheets("uk01").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        
        Sheets("bor1").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("ods1").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("pin1").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("dimprd - statsux01").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("dimprd - npss01").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("nms01").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("nms02").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("gwrepprd").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("rcat").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("capital").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("cduprd").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        
        Sheets("ecprd").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("ipaprd").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("rxprd").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("skysms").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("ict1").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        Sheets("P01").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        Sheets("remedy1").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("NMSPRD").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
        Sheets("TRPRT").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        Sheets("TRPOL").Select
        
        Set Rng = Range("A1")
        
        Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        Rng.Offset(2, 0).Resize(7, 1) = "Y"
        Rng.Offset(10, 0).Resize(11, 1) = "Y"
        
    Else
        
        ' Loop through all selected sheets.
        Sheets("pin1").Select
        Call Finddate
        Sheets("dimprd - statsux01").Select
        Call Finddate
        Sheets("dimprd - npss01").Select
        Call Finddate
        Sheets("nms01").Select
        Call Finddate
        Sheets("nms02").Select
        Call Finddate
        Sheets("gwrepprd").Select
        Call Finddate
        Sheets("rcat").Select
        Call Finddate
        Sheets("capital").Select
        Call Finddate
        Sheets("cduprd").Select
        Call Finddate
        Sheets("ecprd").Select
        Call Finddate
        Sheets("ipaprd").Select
        Call Finddate
        Sheets("rxprd").Select
        Call Finddate
        Sheets("skysms").Select
        Call Finddate
        Sheets("edw1").Select
        Call Finddate
        Sheets("ods1").Select
        Call Finddate
        Sheets("metprd").Select
        Call Finddate
        Sheets("bor1").Select
        Call Finddate
        Sheets("uk01").Select
        Call Finddate
        Sheets("P01").Select
        Call Finddate
        Sheets("ict1").Select
        Call Finddate
        Sheets("rbt1").Select
        Call Finddate
        Sheets("remedy1").Select
        Call Finddate
        Sheets("NMSPRD").Select
        Call Finddate
        Sheets("TRPRT").Select
        Call Finddate
        Sheets("TRPOL").Select
        Call Finddate
        
    End If

End If

End Sub
 
Upvote 0
Thanks I will try your suggestion in a min however at the mo I am trying to apply the loop that was mention to loop through all worksheets except rbt1. I have the following but it errors athe the line "aSheets(1) = edw1" stating "Sub or function not defined"

By the way I'm not a programming God so all help appreciated. :)

--------------
Sub Auto_Open()

runupdate = MsgBox("Do you wish to update the spreadsheet ?", vbYesNo)
If runupdate = vbYes Then
allupdate = MsgBox("Can all checks across all Oracle instances be verified?", vbYesNo)
If allupdate = vbYes Then

Sheets("rbt1").Select
Dim Rng As Range 'Note you only need this once
Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"



aSheets(1) = edw1
aSheets(2) = metprd
aSheets(3) = uk01
aSheets(4) = bor1
aSheets(5) = ods1
aSheets(6) = pin1
aSheets(7) = dimprd - statsux01
aSheets(8) = dimprd - npss01
aSheets(9) = nms01
aSheets(10) = nms02
aSheets(11) = gwrepprd
aSheets(12) = rcat
aSheets(13) = capital
aSheets(14) = cduprd
aSheets(15) = ecprd
aSheets(16) = ipaprd
aSheets(17) = rxprd
aSheets(18) = skysms
aSheets(19) = ict1
aSheets(20) = p01
aSheets(21) = remedy1
aSheets(22) = nmsprd
aSheets(23) = trprt
aSheets(24) = trpol

i = 1

Do Until i = UBound(aSheets, 1)
Sheets(aSheets(i)).Select
Set Rng = Range("A1")

Set Rng = Cells.Find(What:=Rng.Value, After:=Rng, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

Rng.Offset(2, 0).FormulaR1C1 = "Y"
Rng.Offset(3, 0).FormulaR1C1 = "Y"
Rng.Offset(4, 0).FormulaR1C1 = "Y"
Rng.Offset(5, 0).FormulaR1C1 = "Y"
Rng.Offset(6, 0).FormulaR1C1 = "Y"
Rng.Offset(7, 0).FormulaR1C1 = "Y"
Rng.Offset(8, 0).FormulaR1C1 = "Y"
Rng.Offset(10, 0).FormulaR1C1 = "Y"
Rng.Offset(11, 0).FormulaR1C1 = "Y"
Rng.Offset(12, 0).FormulaR1C1 = "Y"
Rng.Offset(13, 0).FormulaR1C1 = "Y"
Rng.Offset(14, 0).FormulaR1C1 = "Y"
Rng.Offset(16, 0).FormulaR1C1 = "Y"
Rng.Offset(17, 0).FormulaR1C1 = "Y"
Rng.Offset(18, 0).FormulaR1C1 = "Y"
Rng.Offset(19, 0).FormulaR1C1 = "Y"
Rng.Offset(20, 0).FormulaR1C1 = "Y"
Rng.Offset(21, 0).FormulaR1C1 = "Y"

i = i + 1
Loop





Else

' Loop through all selected sheets.
Sheets("pin1").Select
Call Finddate
Sheets("dimprd - statsux01").Select
Call Finddate
Sheets("dimprd - npss01").Select
Call Finddate
Sheets("nms01").Select
Call Finddate
Sheets("nms02").Select
Call Finddate
Sheets("gwrepprd").Select
Call Finddate
Sheets("rcat").Select
Call Finddate
Sheets("capital").Select
Call Finddate
Sheets("cduprd").Select
Call Finddate
Sheets("ecprd").Select
Call Finddate
Sheets("ipaprd").Select
Call Finddate
Sheets("rxprd").Select
Call Finddate
Sheets("skysms").Select
Call Finddate
Sheets("edw1").Select
Call Finddate
Sheets("ods1").Select
Call Finddate
Sheets("metprd").Select
Call Finddate
Sheets("bor1").Select
Call Finddate
Sheets("uk01").Select
Call Finddate
Sheets("P01").Select
Call Finddate
Sheets("ict1").Select
Call Finddate
Sheets("rbt1").Select
Call Finddate
Sheets("remedy1").Select
Call Finddate
Sheets("NMSPRD").Select
Call Finddate
Sheets("TRPRT").Select
Call Finddate
Sheets("TRPOL").Select
Call Finddate


End If

End If

End Sub
 
Upvote 0
You must log in or register to reply here.

Similar threads

J
  • Question
VBA Code to Add Rows is slowing down
Replies
5
Views
540
JayB0730
J
G
  • Question
How can i extract the correct leave time on this code?
Replies
1
Views
374
rlv01
R
P
  • Question
Help with Vba Code
Replies
3
Views
187
Coyotex3
C
W
  • Question
VBA InputBox without entry quitting Sub/Macro
Replies
1
Views
133
Micron
M
N
  • Question
VBA Questions - Copying dynamic data from one tab to another and deleting filtered rows
Replies
1
Views
222
DanteAmor
DanteAmor

Forum statistics

Threads
1,215,537
Messages
6,125,398
Members
449,222
Latest member
taner zz

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top