borders are as follows
* Right Border
loSheet.Range("Q4:Q6").Borders(-4152).LineStyle = 1
* Left Border
loSheet.Range("Q4:Q6").Borders(-4131).LineStyle = 1
* Bottom Border
loSheet.Range("A6:Q6").Borders(-4107).LineStyle = 1
* Top Border
loSheet.Range("A6:Q6").Borders(-4160).LineStyle = 1

*Values 1-9 selects different line Styles


* try pasteing a bit map like this
* never have done it before but try this

Worksheets("Sheet1").Range("A1").Select
ActiveSheet.Pictures.Paste

Thanks
Darren