Dim ~ As Object

Set ~ = CreateObject("Excel.Application")

buradaki "yaklaşık" (klavyede bulamadım) işareti böyle mi kalacak yoksa değiştirme işini bize mi bırakmış