Excel - VBA - Ark med mellemrum i navn - Single quotes

Hej

Følgende virker:
Range("A1").Value = Range("[test.xls]Ark1!A1").Value

Men disse virker ikke:
Range("A1").Value = Range("[test A.xls]Ark1!A1").Value
Range("A1").Value = Range("[test.xls]Ark 1!A1").Value

Dette skyldes vel formentlig at der er mellemrum i enten filnavn eller arknavnet. I Excel vil man jo normalt sætte ' omkring navnet, men hvordan gør man det i VBA? Jeg synes ikke lige jeg kan komme frem til en løsning der fungerer?