Change this line
Set myRng = Sh.Range("B7:S38")
(me becomes sh)



MIke wrote:

I am trying to save a workbook if data is entered in a specific cell. I was
given the following code on this site and I am getting a Compile error that
reads Method or data member not found. I have little knowledge of VBA and I
can not figure out the problem. Any help or suggestions would be greatly
appreciated.
Thanks for the help,
Mike

"Dave Peterson" wrote:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

dim myRng as range
set myrng = me.range("B7:S38")

if myrng.cells.count = application.counta(myrng) then
me.parent.save
end if

End Sub

--

Dave Peterson