Sub Macro1()
Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:=",jpg", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Application.ScreenUpdating = True
End Sub