Runtime error 13

[selbo81]

Hi,

I keep getting a 'runtime error 13 type mismatch' error when running a macro in excel 2003 SP3, i cant see nothing wrong with the scripting when i click on 'debug' can anyone spot what i am doing wrong ? here is the higlighted error

i am running windows xp sp3 and office version 2003 sp3

please see below

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

Private Sub UserForm_Activate()
     'Set the form changer to change this userform
    Set oFormChanger.Form = Me
    oFormChanger.Modal = False
    oFormChanger.Sizeable = False
    oFormChanger.ShowCaption = True
    oFormChanger.ShowSysMenu = False
    oFormChanger.ShowTaskBarIcon = True
    oFormChanger.SmallCaption = True
    oFormChanger.ShowIcon = True
    oFormChanger.ShowCloseBtn = True
    oFormChanger.ShowMaximizeBtn = True
    oFormChanger.ShowMinimizeBtn = True
   OptionButton1.Value = True
    'By Air
    OptionButton1.Value = True
    If Range("DB_TravelFrom").Value = 1 Then
         If Range("DB_Air_London").Value = "not avail" And _
            Range("DB_Air_Stansted").Value = "not avail" And _
            Range("DB_Air_Luton").Value = "not avail" Then            
            OptionButton3.Enabled = False
            OptionButton3.Caption = "Air N/A"
        Else
            If Range("DB_Air_London").Value <> "not avail" Or _
                Range("DB_Air_Stansted").Value <> "not avail" Or _
                Range("DB_Air_Luton").Value <> "not avail" Then
                OptionButton3.Caption = "Air"
            End If
        End If
    End If
    If Range("DB_TravelFrom").Value = 2 Then
        If Range("DB_Air_Manch").Value = "not avail" Then
            OptionButton3.Enabled = False
            OptionButton3.Caption = "Air N/A"
        End If
    End If
    If Range("DB_TravelFrom").Value = 3 Then
        If Range("DB_Air_Bris").Value = "not avail" Then
            OptionButton3.Enabled = False
            OptionButton3.Caption = "Air N/A"
        End If
    End If
    
    'By Rail
    If Range("DB_TravelFrom").Value = 1 Then
        If Range("DB_Rail_Stev").Value = "not avail" Then
            OptionButton2.Enabled = False
            OptionButton2.Caption = "Rail N/A"
        Else
            If Range("DB_Rail_Stev").Value <> "not avail" Then
                OptionButton2.Enabled = True
                OptionButton2.Caption = "Rail"
            End If
        End If
    End If
    If Range("DB_TravelFrom").Value = 2 Then
        If Range("DB_Rail_Lost").Value = "not avail" Then
            OptionButton2.Enabled = False
            OptionButton2.Caption = "Rail N/A"
        Else
            If Range("DB_Rail_Lost").Value <> "not avail" Then
                OptionButton2.Enabled = True
                OptionButton2.Caption = "Rail"
            End If
        End If
    End If
    If Range("DB_TravelFrom").Value = 3 Then
        If Range("DB_Rail_Filt").Value = "not avail" Then
            OptionButton2.Enabled = False
            OptionButton2.Caption = "Rail N/A"
        Else
            If Range("DB_Rail_Filt").Value <> "not avail" Then
                OptionButton2.Enabled = True
                OptionButton2.Caption = "Rail"
            End If
        End If
   End If
            
End Sub