Hi I have a piece of code that suddenly stop working: All code in the sheet...cell is not working Private Sub Receipt_Click() Dim customername As String Dim customeraddress As String Dim invoicenumber As String Dim r As Long Dim mydate As String Dim path As String Dim myfilename As String lastrow = Sheets("01").Range("B" & Rows.Count).End(xlUp).Row r = 5 For r = 5 To lastrow If Cells(r, 15).Value = "done" Then GoTo nextrow Product = Sheets("01").Range("R2").Value ...working studentname = Sheets("01").Cells(r, 2).Value...not working Cells(r, 15).Value = "done"...not working
Solved by E. D. in 14 mins