stop a macro from running everytime a cell is changed

i am running the following macro,

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("FE11") = 1 Then
MsgBox "VEHICLE MAY BE DUE FOR A SERVICE !!", vbBEEP + vbOKOnly
End If

End Sub

i am a newbie to programming and can't figure out how to stop it from
running everytime any cell value is changed in the worksheet other than
"FE11" !
also i would like to add the date due in the message box if possible that is
a reult of cell "FE12".

any help would be aprreciated

thanks in advance

bassfisher

The argument Target is the cell that just changed, so you want something like

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$FE$11" and Target.Value = 1 Then
MsgBox "VEHICLE MAY BE DUE FOR A SERVICE !!", vbBEEP + vbOKOnly
End If

End Sub


--
HTH...

Jim Thomlinson


"bassfisher" wrote:

> i am running the following macro,
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> If Range("FE11") = 1 Then
> MsgBox "VEHICLE MAY BE DUE FOR A SERVICE !!", vbBEEP + vbOKOnly
> End If
>
> End Sub
>
> i am a newbie to programming and can't figure out how to stop it from
> running everytime any cell value is changed in the worksheet other than
> "FE11" !
> also i would like to add the date due in the message box if possible that is
> a reult of cell "FE12".
>
> any help would be aprreciated
>
> thanks in advance
>
> bassfisher
>

jim, thanks for the info, but now the message box doesn't appear as a an
alert to the user! ????
bassfisher

"Jim Thomlinson" wrote:

> The argument Target is the cell that just changed, so you want something like
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> If Target.Address = "$FE$11" and Target.Value = 1 Then
> MsgBox "VEHICLE MAY BE DUE FOR A SERVICE !!", vbBEEP + vbOKOnly
> End If
>
> End Sub
>
>
> --
> HTH...
>
> Jim Thomlinson
>
>
> "bassfisher" wrote:
>
> > i am running the following macro,
> >
> > Private Sub Worksheet_Change(ByVal Target As Range)
> >
> > If Range("FE11") = 1 Then
> > MsgBox "VEHICLE MAY BE DUE FOR A SERVICE !!", vbBEEP + vbOKOnly
> > End If
> >
> > End Sub
> >
> > i am a newbie to programming and can't figure out how to stop it from
> > running everytime any cell value is changed in the worksheet other than
> > "FE11" !
> > also i would like to add the date due in the message box if possible that is
> > a reult of cell "FE12".
> >
> > any help would be aprreciated
> >
> > thanks in advance
> >
> > bassfisher
> >

Is FE11 a Formula by chance. In that case the target is not FE11 and the
warning will not fire. You need to look at the precidents of that function
and change the line

(Target.Address = "$?$" Or Target.Address = "$?$") and Range("FE11") = 1
--
HTH...

Jim Thomlinson


"bassfisher" wrote:

> jim, thanks for the info, but now the message box doesn't appear as a an
> alert to the user! ????
> bassfisher
>
> "Jim Thomlinson" wrote:
>
> > The argument Target is the cell that just changed, so you want something like
> >
> > Private Sub Worksheet_Change(ByVal Target As Range)
> >
> > If Target.Address = "$FE$11" and Target.Value = 1 Then
> > MsgBox "VEHICLE MAY BE DUE FOR A SERVICE !!", vbBEEP + vbOKOnly
> > End If
> >
> > End Sub
> >
> >
> > --
> > HTH...
> >
> > Jim Thomlinson
> >
> >
> > "bassfisher" wrote:
> >
> > > i am running the following macro,
> > >
> > > Private Sub Worksheet_Change(ByVal Target As Range)
> > >
> > > If Range("FE11") = 1 Then
> > > MsgBox "VEHICLE MAY BE DUE FOR A SERVICE !!", vbBEEP + vbOKOnly
> > > End If
> > >
> > > End Sub
> > >
> > > i am a newbie to programming and can't figure out how to stop it from
> > > running everytime any cell value is changed in the worksheet other than
> > > "FE11" !
> > > also i would like to add the date due in the message box if possible that is
> > > a reult of cell "FE12".
> > >
> > > any help would be aprreciated
> > >
> > > thanks in advance
> > >
> > > bassfisher
> > >

thanks again jim, i'll give it a shot and let you know how it works
bassfisher

"Jim Thomlinson" wrote:

> Is FE11 a Formula by chance. In that case the target is not FE11 and the
> warning will not fire. You need to look at the precidents of that function
> and change the line
>
> (Target.Address = "$?$" Or Target.Address = "$?$") and Range("FE11") = 1
> --
> HTH...
>
> Jim Thomlinson
>
>
> "bassfisher" wrote:
>
> > jim, thanks for the info, but now the message box doesn't appear as a an
> > alert to the user! ????
> > bassfisher
> >
> > "Jim Thomlinson" wrote:
> >
> > > The argument Target is the cell that just changed, so you want something like
> > >
> > > Private Sub Worksheet_Change(ByVal Target As Range)
> > >
> > > If Target.Address = "$FE$11" and Target.Value = 1 Then
> > > MsgBox "VEHICLE MAY BE DUE FOR A SERVICE !!", vbBEEP + vbOKOnly
> > > End If
> > >
> > > End Sub
> > >
> > >
> > > --
> > > HTH...
> > >
> > > Jim Thomlinson
> > >
> > >
> > > "bassfisher" wrote:
> > >
> > > > i am running the following macro,
> > > >
> > > > Private Sub Worksheet_Change(ByVal Target As Range)
> > > >
> > > > If Range("FE11") = 1 Then
> > > > MsgBox "VEHICLE MAY BE DUE FOR A SERVICE !!", vbBEEP + vbOKOnly
> > > > End If
> > > >
> > > > End Sub
> > > >
> > > > i am a newbie to programming and can't figure out how to stop it from
> > > > running everytime any cell value is changed in the worksheet other than
> > > > "FE11" !
> > > > also i would like to add the date due in the message box if possible that is
> > > > a reult of cell "FE12".
> > > >
> > > > any help would be aprreciated
> > > >
> > > > thanks in advance
> > > >
> > > > bassfisher
> > > >