Podla tohoto
https://support.microsoft.com/en-us/kb/107468
sa to escapuje dvojitymi apostrofmi, takze skus to zmenit na toto

ceLL.Hyperlinks.Add Anchor:=ceLL, Address:="", _
SubAddress:="'" & Replace(ceLL.Value,"'","''") & "'" & "!a1", ScreenTip:="Kliknutím se pøesuneš do tohoto listu", 

nie som si isty ci sa to da takto rovno prasknut tam replace funkcia, ak to bude hadzat error tak napis urobim tam dalsiu premennu

P.S. a na tom webe ti aj microsoft jasne pise
In general, avoid using apostrophes in your worksheet names.
Za tym nasleduje vycet problemov ktore budes mat ked tam budes cpat apostrofy.