I have the following sub for a macro which will grab a portion of one of the sheets and save it to a jpg file.

Sub Savetojpg()
Dim rgExp As Range: Set rgExp = ThisWorkbook.Sheets("SUMMARY").Range("B1:K83")
rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
Width:=rgExp.Width, Height:=rgExp.Height)
.Name = "ChartVolumeMetricsDevEXPORT"
.Activate
End With
''' Paste into chart area, export to file, delete chart.
ActiveChart.Paste
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export "H:\BOM.jpg"
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete
What I need to do is the allow the filename, in this case H:\BOM.jpg to be concatenated from a value in one of the cells ThisWorkbook.Sheets("Sheet1").Range("F10"). But when I try this like so

ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export "H:\" & ThisWorkbook.Sheets("Sheet1").Range("F10") & ".jpg"
I keep getting an Expected: list separator or ) error message.