Macro Confusion [duplicate] - excel

Question

This question already has answers here:
Excel VBA, getting range from an inactive sheet
(3 answers)
Closed 1 year ago.
In Excel VBA we have a spreadsheet which stores information and have one of each of our sites. The workbooks are identical but each contains info for a specific sites. These are in constant use and we have too many users to use a single book.
Since an update to office 365, if a user has more than one sheet open then the scripts are writing the data to the wrong sheet. The scripts are contained in a module and it appears that excel, on rare occasions runs the script (of the same name) from the wrong workbook.
Is there a simple way to make the code only run in the workbook it is contained in?
One thought was if we put it in the "this workbook" container rather than in a module might have this effect.
The spreadsheet is very long but in essence this is what it does:
Private Sub cmdSave_Click()
Set ws = Sheets("Repairs Log")
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws.Cells(lr, 3).Value = txtsite
ws.Cells(lr, 4).Value = lbxblock
ws.Cells(lr, 5).Value = txtflat
ws.Cells(lr, 6).Value = txtroom
ws.Cells(lr, 7).Value = txtdescription
ws.Cells(lr, 9).Value = lbxtype
ws.Cells(lr, 8).Value = lbxassigned.Text
End Sub
Any ideas

Answer 1

ThisWorkbook
ThisWorkbook on Microsoft Docs
Option Explicit
' Being Careless
Sub AWB()
Dim wb As Workbook: Set wb = ActiveWorkbook ' workbook you are looking at
' Several possibilities: could be the wrong one!
' continue...
End Sub
' Memorize this.
Sub TWB()
Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
' One possibility: can't be the wrong one!
Dim ws As Worksheet: Set ws = wb.Worksheets("Repairs Log")
' continue...
End Sub
' Since it is simple enough, you can use the 'With' statemnt:
Private Sub cmdSave_Click()
With ThisWorkbook.Worksheets("Repairs Log")
Dim lr As Long: lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lr, 3).Value = txtsite
.Cells(lr, 4).Value = lbxblock
.Cells(lr, 5).Value = txtflat
.Cells(lr, 6).Value = txtroom
.Cells(lr, 7).Value = txtdescription
.Cells(lr, 9).Value = lbxtype
.Cells(lr, 8).Value = lbxassigned.Text
End With
End Sub