With Selection.Tables(1) On Error Resume Next .Style = "Tabelraster" If Err Then .Style = "Table Grid" End If On Error GoTo 0 End With