关于VBA插入图片报错

wo881008

tempBook.Sheets("销售店扣分明细表").Select
    Range("B3").Select
    ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\塔式看板\" & sBook.Sheets("销售店环节得分").Cells(i - 1, 6).Value & "-塔式看板.jpg").Select
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = 113.3858267717
    Selection.ShapeRange.Width = 147.4015748031

这段代码来源于录制宏，主要用来实现插入图片，但是现在需要根据图片的名称来插入，就插入了蓝色部分的条件，但是一改就报错。如果不改是可以正常使用。想问一下怎么修改呢？我就想再THISWORKPATH里面的文件夹塔式看板里面的图片，图片名称为sBook.Sheets("销售店环节得分").Cells(i - 1, 6).Value后面加-塔式看板.jpg. 谢谢大家