B Bernard Liengme Aug 16, 2004 #2 Try this: Sub whatver() Dim x x = Application.Version MsgBox "Version is " & x End Sub Best wishes