With Application If .DisplayGridLines = ksoTrue Then .DisplayGridLines = ksoFalse Else .DisplayGridLines = ksoTrue End IfEnd With