Adding a Logo (.jpg) to Header--Loading .jpeg for other users

[Sean]

Hello:
I'm using the following to insert a Header and Footer to all pages--

Sub InsertHeaderFooter()

Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
     
    With ws.PageSetup
            .LeftHeader = ""
            .CenterHeader = "SHOW•INTERACT•OBSERVE•GROW" & Chr(10) & "Stategic Job Map"
            .RightHeader = ""
            .LeftFooter = "Watts and Associates. All Rights Reserved, 1993.Do Not Duplicate Without Permission of Watts and Associates"
            .CenterFooter = ""
            .RightFooter = ""
    End With
     
 
    Next ws
 
End Sub

And I'm using this to add a LOGO to the Pages--

Sub Each_Sheet()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ADDLOGO ws
    Next ws
End Sub

Private Sub ADDLOGO(ws As Worksheet)
With ws.PageSetup.LeftHeaderPicture
        .Filename = "C:\Users\sean.VFC\Desktop\RW_LOGO_Final_edited-3.jpg"
        .Height = 32
        .Width = 33
     
        .ColorType = msoPictureAutomatic
     
        .CropBottom = 0
        .CropLeft = 0
        .CropRight = 0
        .CropTop = 0
   End With
    With ws.PageSetup.RightHeaderPicture
        .Filename = "C:\Users\sean.VFC\Desktop\RW_LOGO_Final_edited-3.jpg"
        .Height = 32
        .Width = 33
     
        .CropRight = -36
     
        .ColorType = msoPictureAutomatic
     
        .CropBottom = 0
        .CropLeft = 0
     
        .CropTop = 0
    End With

 
    ws.PageSetup.LeftHeader = "&G"
    ws.PageSetup.RightHeader = "&G"
End Sub

Question: When another machine uses this Workbook--How can I load the .jpg to insert into the header?

Thanks for any help!

 

[Hui]

You can use the IP Address of the PC as a check
I just answered a similar post here
http://chandoo.org/forum/threads/wh...eads-and-book-marks-from-the-old-forum.18518/ go down to Post #8

So pull that apart and see if you can use it