Bob,

Thanks for the PROMPT response ...

I coded as you specified ...
''''''''''''''''''''''
Private Sub NAVIGATIONButton_Click()
Application.ScreenUpdating = True
Load frmNAVIGATION
If Val(Application.Version) = 9 Then
ShowNonModal
Else
ShowModal
End If
End Sub

Sub ShowModal()
frmNAVIGATION.show 'Excel 97
End Sub

Sub ShowNonModal()
frmNAVIGATION.show 0 'Excel 2000 +
End Sub
''''''''''''''''''''''''''''''''''

WORKS PERFECT IN BOTH VERSIONS OF EXCEL ...
THANKS a MILLION ...

J.Pellechi

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!