VBE は、エラーの原因となっている次のコードを指しています。
Sheets("Topology").Range(Me.Get_Cell_Location).Interior.Color = RGB(255, 255, 255)
関数全体は次のように定義されます。
Public Function Colour_Me(choice As Integer) As Boolean
If choice = 1 Then
Debug.Print "Choice 1"
If Me.Get_Enabled1 = True Or Me.Get_Enabled2 = True Or Me.Get_Enabled3 = True Then
Sheets("Topology").Range(Me.Get_Cell_Location).Interior.Color = RGB(255, 255, 0)
Colour_Me = True
Else
Sheets("Topology").Range(Me.Get_Cell_Location).Interior.Color = RGB(255, 255, 255)
Colour_Me = False
End If
ElseIf choice = 2 Then
Debug.Print "Choice 2"
If Me.Get_Enabled1 = True Or Me.Get_Enabled2 = True Or Me.Get_Enabled3 = True Then
Sheets("Topology").Range(Me.Get_Cell_Location).Interior.Color = RGB(0, 0, 255)
Colour_Me = True
Else
Sheets("Topology").Range(Me.Get_Cell_Location).Interior.Color = RGB(255, 255, 255)
Colour_Me = False
End If
End If
End Function
選択肢 1 のコードは問題なく動作するように見えますが、選択肢 2 では問題が発生しています。
アップデート
Public Property Let Set_Cell_Location(location As String)
cell_location = location
End Property
Public Property Get Get_Cell_Location()
Get_Cell_Location = cell_location
End Property