Como ejecutar macro una sola vez

Tengo hecho esta makro para hacer una consulta, como podría hacer para que solo se ejecutara la makro una vez, quiere decir la primera vez que aber el archivo y nunca mas.

Sub qqqq() ' ' qqqq Macro '

' ActiveCell.FormulaR1C1 =

_ "=VLOOKUP(RC[1],'[Ac Daten von M. Stacher.xls]Faktoren'!R2C1:R75C3,3,FALSE)"

ActiveCell.Offset(0, 1).Range("A1").Select

End Sub

Agradecería muchísimo una respuesta...
saludos, Ignacio