If you followed the directions exactly then maybe you should remove the end part (jpg).

Worked good for me.

newpic = "C:\aaa\Pics\" & Range("c7").Value & ".jpg"