Sub Nommer_plageCategorie()
Dim i As Long
With ActiveWorkbook.Worksheets("Import Hosting")
For i = 1 To 26
If .Cells(1, i).Value Like "Service Type*" Then
.Cells(1, i).Value = "Category"
ActiveWorkbook.Names.Add Name:="Categories", RefersToR1C1:="=OFFSET('Import Hosting'!R2C" & i & ",,,COUNTA('Import Hosting'!C" & i & ")-1)"
Exit Sub
End If
Next i
End With
End Sub