Hello Kristofer welcome to the forum.
Here is some code which seems to work ok on your sample file:
Sub Register_Time()
Dim r As Long, c As Long
Dim Ws As Worksheet
Dim WsName As String, Name As String, Week As String
Dim Hrs As Double
WsName = Left(Range("E6"), 4)
Set Ws = Sheets(WsName)
Name = Sheets("blad1").Range("D6")
Week = Sheets("blad1").Range("C6")
Hrs = Sheets("blad1").Range("F6")
r = Ws.Range("D2:D127").Find(Name, , xlValues).Row
c = Ws.Range("E2:S2").Find(Week, , xlValues).Column
Ws.Cells(r, c) = Hrs
End Sub
However, this has no Error Handling, so you would need to tighten up the validation on the input cells or introduce some Error Handling Code. Not sure which approach would be suitable for you. You would need checks for the 'Name'; 'Week'; 'Sheet' and perhaps 'Hours' for a numeric input.
DBY
Bookmarks