I put a sheet2. in the below and it works fine now 

With Sheets("Sheet2")
            For Each cell In sheet2.Range("A1:A25") 
            If cell.Value = strUser Then
                cell.Offset(0, 1).Value = Date
                Exit Sub ' username is present
            End If
        Next cell