"McAffee Buffer overflow Blocked."

Are you sure it's not McAfee?

If it is McAfee, then it sounds like your antivirus software is causing the
trouble. I'd start by temporarily disabling the AV software and see what
happens.



Corey wrote:

Sub Button36_Click()
On Error Resume Next
Range("C97").Select
Application.ScreenUpdating = False
Dim WB As Workbook
Dim SH As Worksheet
Dim rng As Range
Dim myPic As Picture
Dim res As Variant
'Const sAddress As String = ActiveCell
Set WB = ActiveWorkbook
res = Application.GetOpenFilename("Image Files (*.jpg), *.jpg")
If res = False Then Exit Sub
Set SH = ActiveSheet
Set rng = ActiveCell
Set myPic = SH.Pictures.Insert(res)
With myPic
.Top = rng.Top
.Left = rng.Left
myPic.ShapeRange.LockAspectRatio = msoFalse
myPic.ShapeRange.Height = 215.1
myPic.ShapeRange.Width = 250#
myPic.ShapeRange.Rotation = 0#
'myPic.Name = ActiveCell.Offset(-1, 1).Value
End With
Application.ScreenUpdating = True
Range("L101").Select
End Sub

The above code when run prompts for a image selection and pastes it to size on a sheet.

However, i am now getting an error.

McAffee Buffer overflow Blocked. Then saying something about address.

I think it may be because the default folder it looks to is on a network.
Is there a way for me to add a line of code to look to a local folder instead?

Corey...

--

Dave Peterson