X-Platform Problem
 

X-Platform Problem



I have developed an application in



Microsoft Windows XP Professional

Excel 2002 (10.6501.6626) SP3



That works on my machine and 3 others in the office



However, when I try it on a Mac

MAC OS 10.3.4

Excel X for Mac

I can not make the userform stay visible.



The userform appears and then disappears off the screen straightaway and it
gives no error. I am activating the userform from a toolbar button. Code
below.



Any suggestions or hints or places to find more information about X platform
issues would be greatly appreciated



Regards



David



--------------------------









Sub CreateToolbar()

Dim MDControl As CommandBar



'Get rid of any toolbars titled "MD_Control"

On Error Resume Next

CommandBars("MDControl").Delete

On Error GoTo 0



Dim DB As CommandBar



Dim i As Integer



On Error Resume Next

Set MDControl = Application.CommandBars("MDControl")

On Error GoTo 0

If DB Is Nothing Then

Set MDControl = Application.CommandBars.Add(Name:="MDControl")



For i = 1 To 3

MDControl.Controls.Add Type:=msoControlButton

Next i

End If

With MDControl.Controls(1)

.OnAction = "Open_Area_Selection"

.FaceId = 65

.TooltipText = "Analysis"

End With

With MDControl.Controls(2)

.OnAction = "Open_Databases"

.FaceId = 581

.TooltipText = "Edit Databases"

End With



With MDControl.Controls(3)

.OnAction = "Open_Results"

.FaceId = 3690 'face IDs 1935(info) 1953(analysis)163 (edit)

.TooltipText = "Open Results"

End With

MDControl.Enabled = True

MDControl.Visible = True

MDControl.Position = msoBarTop



End Sub



--------------



Sub Open_Area_Selection()

'Open the userform

Area_Selection.Show



End Sub