Add multiple excel worksheets(tabs) with jpgs

[SunnyHKim]

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

 

[Jason Morin]

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

 

[SunnyHKim]

Jason,

That worked wonders! Thanks a bunch!

Sunny