Is there any way to have a form modeless in Excel 2002
but model in Excel 97.

I was playing with this

If Val(Application.Version) = 8 Then
frmLabel.Show
Else: frmLabel.Show vbModeless
End If

but the Else clause causes an error in Excel 97 (which
I can't trap out).

Thanks - Kirk

Hi kirkm,
You must use conditional compilation:

#If VBA6 Then
frmLabel.Show
#Else
frmLabel.Show vbModeless
#End If

MP

"kirkm" a écrit dans le message de
news: ...
Is there any way to have a form modeless in Excel 2002
but model in Excel 97.

I was playing with this

If Val(Application.Version) = 8 Then
frmLabel.Show
Else: frmLabel.Show vbModeless
End If

but the Else clause causes an error in Excel 97 (which
I can't trap out).

Thanks - Kirk

The correct procedure is the reverse:

#If VBA6 Then
frmLabel.Show vbModeless
#Else
frmLabel.Show
#End If

MP

"Michel Pierron" a écrit dans le message de news:
...
Hi kirkm,
You must use conditional compilation:

#If VBA6 Then
frmLabel.Show
#Else
frmLabel.Show vbModeless
#End If

MP

"kirkm" a écrit dans le message
de news: ...
Is there any way to have a form modeless in Excel 2002
but model in Excel 97.

I was playing with this

If Val(Application.Version) = 8 Then
frmLabel.Show
Else: frmLabel.Show vbModeless
End If

but the Else clause causes an error in Excel 97 (which
I can't trap out).

Thanks - Kirk

On Sun, 22 Oct 2006 10:03:55 +0200, "Michel Pierron"
wrote:

The correct procedure is the reverse:

#If VBA6 Then
frmLabel.Show vbModeless
#Else
frmLabel.Show
#End If


Many thanks Michael,
That worked spot-on.

Cheers - Kirk