VBA - Code was working and now doesn't

[Chris_86]

Hi All,

This code was working less than 2 days ago and now it's just suddenly stopped working.
Can anyone work out why it has failed?
Debug stated the following lines are the issue.
rng.Parent.Cells(LastRow + 1, 2).Value = SurnameTextBox.Value
rng.Parent.Cells(LastRow + 1, 3).Value = USITextBox.Value
rng.Parent.Cells(LastRow + 1, 4).Value = EmployerTextBox.Value
rng.Parent.Cells(LastRow + 1, 5).Value = DOBTextBox.Value
rng.Parent.Cells(LastRow + 1, 6).Value = EmailTextBox.Value
rng.Parent.Cells(LastRow + 1, 7).Value = PositionTextBox.Value
Take in mind I haven't changed the coding since it was working either.

Private Sub RegisterButton_Click()

ActiveSheet.Unprotect "DMTR20"

Dim rng As Range
Set rng = ActiveSheet.ListObjects("Table1").Range
Dim LastRow As Long
LastRow = rng.Find(What:="*", _
After:=rng.Cells(1), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row

    rng.Parent.Cells(LastRow + 1, 1).Value = NameTextBox.Value
    rng.Parent.Cells(LastRow + 1, 2).Value = SurnameTextBox.Value
    rng.Parent.Cells(LastRow + 1, 3).Value = USITextBox.Value
    rng.Parent.Cells(LastRow + 1, 4).Value = EmployerTextBox.Value
    rng.Parent.Cells(LastRow + 1, 5).Value = DOBTextBox.Value
    rng.Parent.Cells(LastRow + 1, 6).Value = EmailTextBox.Value
    rng.Parent.Cells(LastRow + 1, 7).Value = PositionTextBox.Value
    
ActiveSheet.Protect "DMTR20"

End Sub

Any help would be appreciated.

Thank you.

 

[Michael M]

Do you get an error ?
Have you stepped through using F8 to see if any line causes an issue ?
Have you renamed any of the text boxes ?
Have you protected the worksheet / workbook with a different password??

 

[juddaaaa]

Not sure why it's stopped working, but you could save yourself a lot of repetition by doing something like this

Private Sub RegisterButton_Click()
  ActiveSheet.Unprotect "DMTR20"
  Dim rng As Range, LastRow As Long
  
  Set rng = ActiveSheet.ListObjects("Table1").Range
  LastRow = rng.Rows.Count
  
  With rng.Cells(LastRow, 1).Offset(1)
    .Resize(1, 7).Value = _
      Array( _
        NameTextBox.Value, _
        SurnameTextBox.Value, _
        USITextBox.Value, _
        EmployerTextBox.Value, _
        DOBTextBox.Value, _
        EmailTextBox.Value, _
        PositionTextBox.Value)
  End With
    
  ActiveSheet.Protect "DMTR20"
End Sub