This macro should do the job. Place all your .jpg files
into a new folder. Make sure to change "sPath" to your
path and correct folder name (mine is named "thejpgs").

Sub Insert_JPG()
Dim sPath As String
Dim NewWS As Worksheet
Dim PathArray As Variant
Dim FileName As String

sPath = "C:\Documents and Settings\jmorin\Desktop\thejpgs"

With Application.FileSearch
.NewSearch
.LookIn = sPath
.SearchSubFolders = False
.FileName = "*.*"
.FileType = msoFileTypeAllFiles

If .Execute() 0 Then
For i = 1 To .FoundFiles.Count
PathArray = Split(.FoundFiles(i), "\")
FileName = PathArray(UBound(PathArray))
Set NewWS = Sheets.Add
ActiveSheet.Pictures. _
Insert (sPath & "\" & FileName)
NewWS.Name = FileName
Next
Else
MsgBox "There were no files found."
End If

End With

End Sub

---
HTH
Jason
Atlanta, GA

-----Original Message-----
I have several jpgs that have to be inserted into each
separate
worksheet. Is it possible to batch this along with
naming the
worksheet tabs the jpg name?

Regards

Sunny

.