Hi Guys

I am getting the above error message in the following line which is bold and marked red.
Private Sub CommandButton6_Click()
Dim wbk As Object
    Dim frm As Object
    Me.Hide
    Application.EnableEvents = False
    Set wbk = Workbooks.Open("C:\Documents and Settings\\Desktop\MI System.xls")
    Application.EnableEvents = True
    Set frm = wbk.getform
    frm.blnAutomated = True  
    frm.Show
    Set frm = Nothing
    wbk.Close True
    Me.Show
End Sub