When I run my program which includes the following code on my Office 365 version it works just fine. Does not work on any version with Windows 10 or Windows 7. When run on the other computers it errors out and highlights in yellow the code below that is in red font.
Was there an update which 'canceled' this code syntax, and if so, what can be used that will work on a non-Office 365 version?
Program code:
customer = Range(ActiveCell, ActiveCell).Value
Range("P2").CurrentRegion.Name = "CustList"
Range("CustList").Select
Selection.Find(What:=customer, After:=ActiveCell, LookIn:=xlFormulas2, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Was there an update which 'canceled' this code syntax, and if so, what can be used that will work on a non-Office 365 version?
Program code:
customer = Range(ActiveCell, ActiveCell).Value
Range("P2").CurrentRegion.Name = "CustList"
Range("CustList").Select
Selection.Find(What:=customer, After:=ActiveCell, LookIn:=xlFormulas2, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate