Esta variable se pierde al finalizar el sub??

[davape9]

Private Sub gd()
If idg = "" Then
idg = 1
Else
idg = idg + 1
End If
msgbox idg
End Sub


Lo hago para que cada vez que se ejecute gd() aparezca primero el 1, después el 2, y así..

Pero la variable idg siempre que ejecuto el sub está indefinida!! o sea que al finalizar el sub se pierde.

¿Qué puedo hacer para que no se pierda la variable?

Gracias de antemano