pokiaľ použije booleanovské hodnoty True a False, stačí na preklopenie Not:
Range("H7")=Not (Range("H7"))
Tým sa celý jeho kód neuveriteľne zjednoduší, akurát že je...k ničomu, lebo len opakovane neguje obsah dvoch buniek, ktoré ďalej nič neovplyvňujú...