Simple msgbox fix

You need to post the whole code. What you have makes no sense. TARGET is usually set by worksheet event handlers.

1. Set R2 = Range("m1:m1") is only one cell and is the same as Set R2 = Range("m1")

2. Because R2 is a single cell, Set intersectrange = Application.Intersect(R1, R2) will only return a range if the target is M1

Since every everything seems to be dependent on the target being M1 you can do that with a single line:

If Target.Address(0,0) ="M1" Then

{ do code based on target being M1 }

Else

{ do code based on target elsewhere }

End If

Exit Sub

using intersect is better since you can change multiple cells at once

I don't see the issue-there is no need or an else or exit sub there-if the value is not less than 20 nothing will happen

Ok, now I'm really confused and I'm sure it's mostly my fault.

This is intended to be its own code for a separate issue on the sheet.

Please Login or Register  to view this content.

This is the code I'm trying to work in on the same sheet.

Please Login or Register  to view this content.

So I cannot combine the two different change functions? Maybe I'm calling them the wrong thing?

I think I just need to work on the formula in the reference cell so it never reads anything but an integer.

your additional code would just be

Please Login or Register  to view this content.

if you are checking g1 on the same sheet as the code