Here is something that uses the print range setting :-
'--------------------------------------------------------
Sub AddLogo()
Dim PA As Range
Dim RightCell As Range
'---------------------------------
Application.ScreenUpdating = False
Set PA = ActiveSheet.Range("Print_Area")
Set RightCell = PA.Cells(1, PA.Columns.Count)
cright = RightCell.Left + RightCell.Width
'---------------------------------
ActiveSheet.Pictures.Insert ("C:\WINNT\system32\oemlogo.bmp")
pw = ActiveSheet.Pictures(1).Width
pleft = cright - pw
ActiveSheet.Pictures(1).Left = pleft
ActiveSheet.Pictures(1).Top = 0
Application.ScreenUpdating = True
End Sub
'------------------------------------------------------------
-----------------------------------------------
~~ Message posted from
http://www.ExcelTip.com
~~View and post usenet messages directly from
http://www.ExcelForum.com