sizing picture same picture in multiple sheets macro clean up

Hey all,

I have a macro to insert my company logo to multiple workbooks and sheets inside those workbooks,
however, I need to resize the image and the cell height only for a1.
Automation for the win.

Below is my code:

Sub InsertLogo2()
Dim strPath As String
Dim shtSheet As Worksheet

strPath = "h:\sas\irepic2.tif"

For Each shtSheet In Worksheets
shtSheet.Activate
Range("A1").Select
ActiveSheet.Pictures.Insert (strPath)
Next shtSheet
Set shtSheet = Nothing
End Sub

Thanks Martinez77