Versions-Konflikt?

Sub TagWeg()
Dim NameRow As Variant, NameRowEnd As Variant, intRow As Integer
getMoreSpeed True
Cells.EntireColumn.Hidden = False
Range(Cells(1, 1), Cells(89, 1)).Rows.Hidden = False
If IsEmpty(Range(Cells(6, 19), Cells(89, 19))) Then
Range("DA:EV,FM:GQ,HX:XIV").EntireColumn.Hidden = True
Else
Range("S:U,DA:EV,FM:GQ,HX:IV").EntireColumn.Hidden = True
End If
intRow = 55
Do Until Left(Cells(intRow, 1), 4) = "Name" Or Cells(intRow, 1) = 0
intRow = intRow + 1
Loop
NameRow = Cells(intRow, 1).Address(False, False)
Range(NameRow & ":A509").EntireRow.Hidden = True