Hello Readers and hopefully problem solvers,
I have a large amount of coding across my workbook that works fine on my works desktop. However, on my laptop one small sub routine stops half way into the code and I can't seem to find the answer to getting it working.
As I said and code works OK on my works desktop but not on my laptop.
The code is as follows:
Sub NoneGasRoundEntrie()
Sheets("SCORECARD").Select
Range("AV7").Value = Range("P3").Value
Range("AV7").Select
Dim GolferX As Range
Set GolferX As ActiveCell
Sheets("INDEX").Select
Range("C10:C111").Find(GolferX).Select
ActiveCell.Offset(0, 5).Select
Call MoveOldRounds
ActiveCell.Offset(0, 19).Select
ActiveCell = Sheets("SCORECARD").Range("AV6").Value
Call IndexFormula
Sheets("SCORECARD").Select
Range("B4").Select
End Sub
The line in YELLOW above is where the code stops.
The desktop is using Office 365 Pro Plus and my laptop is using Office 365
Please please help.
Kind Regards,
Mono
I have a large amount of coding across my workbook that works fine on my works desktop. However, on my laptop one small sub routine stops half way into the code and I can't seem to find the answer to getting it working.
As I said and code works OK on my works desktop but not on my laptop.
The code is as follows:
Sub NoneGasRoundEntrie()
Sheets("SCORECARD").Select
Range("AV7").Value = Range("P3").Value
Range("AV7").Select
Dim GolferX As Range
Set GolferX As ActiveCell
Sheets("INDEX").Select
Range("C10:C111").Find(GolferX).Select
ActiveCell.Offset(0, 5).Select
Call MoveOldRounds
ActiveCell.Offset(0, 19).Select
ActiveCell = Sheets("SCORECARD").Range("AV6").Value
Call IndexFormula
Sheets("SCORECARD").Select
Range("B4").Select
End Sub
The line in YELLOW above is where the code stops.
The desktop is using Office 365 Pro Plus and my laptop is using Office 365
Please please help.
Kind Regards,
Mono