Ms Project Macro Baseline Macro Check Request

[xeeshanxp]

Sub FormatingMacro()
' Format the Way I want
' Macro Recorded 20/09/11 by Muhammed.Khan.
GanttBarStyleDelete Item:="*"
GanttBarStyleEdit Item:="-1", Create:=True, Name:="Task", StartShape:=0, StartType:=0, StartColor:=5, MiddleShape:=1, MiddleColor:=5, MiddlePattern:=3, EndShape:=0, EndType:=0, EndColor:=5, ShowFor:="", Row:=1, From:="Start", To:="Finish", RightText:="Resource Names"
GanttBarStyleEdit Item:="-1", Create:=True, Name:="Critical Task", StartShape:=0, StartType:=0, StartColor:=1, MiddleShape:=1, MiddleColor:=1, MiddlePattern:=3, EndShape:=0, EndType:=0, EndColor:=1, ShowFor:="", Row:=1, From:="Start", To:="Finish", RightText:="Resource Names"
GanttBarStyleEdit Item:="-1", Create:=True, Name:="Progress", StartShape:=0, StartType:=0, StartColor:=0, MiddleShape:=3, MiddleColor:=0, MiddlePattern:=1, EndShape:=0, EndType:=0, EndColor:=0, ShowFor:="", Row:=1, From:="Actual Start", To:="CompleteThrough"
GanttBarStyleEdit Item:="-1", Create:=True, Name:="Milestone", StartShape:=3, StartType:=0, StartColor:=0, MiddleShape:=0, MiddleColor:=0, MiddlePattern:=1, EndShape:=0, EndType:=0, EndColor:=0, ShowFor:="", Row:=1, From:="Start", To:="Start", RightText:="Start"
GanttBarStyleEdit Item:="-1", Create:=True, Name:="Summary", StartShape:=2, StartType:=0, StartColor:=0, MiddleShape:=2, MiddleColor:=0, MiddlePattern:=1, EndShape:=2, EndType:=0, EndColor:=0, ShowFor:="", Row:=1, From:="Start", To:="Finish"
GanttBarStyleEdit Item:="-1", Create:=True, Name:="Rolled Up Task", StartShape:=0, StartType:=0, StartColor:=5, MiddleShape:=1, MiddleColor:=5, MiddlePattern:=3, EndShape:=0, EndType:=0, EndColor:=5, ShowFor:="", Row:=1, From:="Start", To:="Finish"
GanttBarStyleEdit Item:="-1", Create:=True, Name:="Rolled Up Critical Task", StartShape:=0, StartType:=0, StartColor:=1, MiddleShape:=1, MiddleColor:=1, MiddlePattern:=3, EndShape:=0, EndType:=0, EndColor:=1, ShowFor:="", Row:=1, From:="Start", To:="Finish"
GanttBarStyleEdit Item:="-1", Create:=True, Name:="Rolled Up Milestone", StartShape:=3, StartType:=1, StartColor:=0, MiddleShape:=0, MiddleColor:=0, MiddlePattern:=1, EndShape:=0, EndType:=0, EndColor:=0, ShowFor:="", Row:=1, From:="Start", To:="Start"
GanttBarStyleEdit Item:="-1", Create:=True, Name:="Rolled Up Progress", StartShape:=0, StartType:=0, StartColor:=0, MiddleShape:=3, MiddleColor:=0, MiddlePattern:=1, EndShape:=0, EndType:=0, EndColor:=0, ShowFor:="", Row:=1, From:="Actual Start", To:="CompleteThrough"
GanttBarStyleEdit Item:="-1", Create:=True, Name:="Split", StartShape:=0, StartType:=0, StartColor:=13, MiddleShape:=7, MiddleColor:=14, MiddlePattern:=8, EndShape:=0, EndType:=0, EndColor:=13, ShowFor:="", Row:=1, From:="Start", To:="Finish"
GanttBarStyleEdit Item:="-1", Create:=True, Name:="External Tasks", StartShape:=0, StartType:=0, StartColor:=0, MiddleShape:=1, MiddleColor:=14, MiddlePattern:=3, EndShape:=0, EndType:=0, EndColor:=0, ShowFor:="", Row:=1, From:="Start", To:="Finish"
GanttBarStyleEdit Item:="-1", Create:=True, Name:="Project Summary", StartShape:=2, StartType:=0, StartColor:=14, MiddleShape:=2, MiddleColor:=14, MiddlePattern:=1, EndShape:=2, EndType:=0, EndColor:=14, ShowFor:="", Row:=1, From:="Start", To:="Finish"
GanttBarStyleEdit Item:="-1", Create:=True, Name:="Group By Summary", StartShape:=2, StartType:=0, StartColor:=0, MiddleShape:=2, MiddleColor:=0, MiddlePattern:=1, EndShape:=2, EndType:=0, EndColor:=0, ShowFor:="", Row:=1, From:="Start", To:="Finish"
GanttBarStyleEdit Item:="-1", Create:=True, Name:="Deadline", StartShape:=14, StartType:=1, StartColor:=9, MiddleShape:=0, MiddleColor:=0, MiddlePattern:=1, EndShape:=0, EndType:=0, EndColor:=0, ShowFor:="", Row:=1, From:="Deadline", To:="Deadline"
GanttBarLinks Display:=pjToTop
GanttChartWizard
GanttBarStyleEdit Item:="1", MiddleShape:=2
GanttBarStyleEdit Item:="2", MiddleShape:=2
GanttBarStyleEdit Item:="3", MiddleColor:=5
GanttBarStyleEdit Item:="5", MiddleShape:=5
GanttBarStyleEdit Item:="5", StartShape:=9
GanttBarStyleEdit Item:="5", EndShape:=9
GanttBarStyleEdit Item:="3", Create:=True, Name:="Baseline"
GanttBarStyleEdit Item:="3", ShowFor:="Normal"
GanttBarStyleEdit Item:="3", MiddleShape:=4
GanttBarStyleEdit Item:="3", MiddlePattern:=5
GanttBarStyleEdit Item:="3", MiddleColor:=9
GanttBarStyleEdit Item:="3", From:="Baseline10 Start"
GanttBarStyleEdit Item:="3", To:="Baseline10 Finish"
TimescaleEdit MajorUnits:=1, MinorUnits:=2, MajorLabel:=2, MinorLabel:=10, MinorTicks:=True, Separator:=True, MajorUseFY:=True, MinorUseFY:=True, TierCount:=2
GanttBarLinks
GridlinesEdit Item:=0, NormalType:=2
GridlinesEdit Item:=0, NormalColor:=15
GridlinesEdit Item:=1, NormalType:=2
GridlinesEdit Item:=1, NormalColor:=15
GridlinesEdit Item:=2, NormalColor:=16
GridlinesEdit Item:=2, NormalColor:=15
GridlinesEdit Item:=3, NormalType:=2
GridlinesEdit Item:=3, NormalColor:=15
GridlinesEdit Item:=4, NormalType:=0
GridlinesEdit Item:=7, NormalColor:=14
GridlinesEdit Item:=8, NormalType:=1
GridlinesEdit Item:=8, NormalColor:=14
GridlinesEdit Item:=12, NormalType:=1
GridlinesEdit Item:=12, NormalColor:=1
ProjectSummaryInfo StatusDate:=Date
BaselineSave All:=True, Copy:=0, Into:=20
End Sub

This macro create baseline number10, is there any possibility that if it runs again ...it check if there is baseline10 it goes to 9 or 11 ...any thoughts will be appreciated