rootDir = "M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily Graphs"
Set ws = ActiveWorkbook.Sheets("AGT-TM3")
ws.ChartObjects(1).Chart.Export rootDir & "\AGT & TM3" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("NBP")
ws.ChartObjects(1).Chart.Export rootDir & "\NBP" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("NBP")
ws.ChartObjects(2).Chart.Export rootDir & "\NBP1" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("NBP2")
ws.ChartObjects(1).Chart.Export rootDir & "\NBP2" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("Brent")
ws.ChartObjects(1).Chart.Export rootDir & "\Brent_year" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("GBP")
ws.ChartObjects(1).Chart.Export rootDir & "\GBP" & ".jpg", "JPG"
How does it 'stop'?
Do you get any error messages?
Have you declared rootdir?
rootDir = "M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily Graphs"
Set ws = ActiveWorkbook.Sheets("AGT-TM3")
ws.ChartObjects(1).Chart.Export rootDir & "\AGT & TM3" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("NBP")
ws.ChartObjects(1).Chart.Export rootDir & "\NBP" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("NBP")
ws.ChartObjects(2).Chart.Export rootDir & "\NBP1" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("NBP2")
ws.ChartObjects(1).Chart.Export rootDir & "\NBP2" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("Brent")
ws.ChartObjects(1).Chart.Export rootDir & "\Brent_year" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("GBP")
ws.ChartObjects(1).Chart.Export rootDir & "\GBP" & ".jpg", "JPG"
The first line is not a declaration line, it's where you assign a value.
would be a declaration line - i.e. where you declare the variable.Code:Dim rootDir as String