Error '13' Type Mismatch

[Tanya]

Hi I have a macro in my workbook which appears to be activated whenever data
changes. For example, if I delete a piece of data or paste data.

Here is the error:

Run-time error '13'
Type Mismatch
choose [End] or [Debug]

I have been choosing 'End' as a solution, but it is becoming annoying. Below
is a copy of my code which comes up when you choose 'Debug'. If any one could
help I would be very grateful.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Const BUTTON_COUNT = 10
Const SHEET_WITH_BUTTONS = "Setup"

Dim ButtonDefs() As Variant
ReDim ButtonDefs(0 To BUTTON_COUNT - 1)

' START OF BUTTON DEFINITIONS
'Each array is three strings:
'Name of change sheet, change cell address, associated button name
ButtonDefs(0) = Array("1", "B1", "CommandButton1")
ButtonDefs(1) = Array("2", "B1", "CommandButton2")
ButtonDefs(2) = Array("3", "B1", "CommandButton3")
ButtonDefs(3) = Array("4", "B1", "CommandButton4")
ButtonDefs(4) = Array("5", "B1", "CommandButton5")
ButtonDefs(5) = Array("6", "B1", "CommandButton6")
ButtonDefs(6) = Array("7", "B1", "CommandButton7")
ButtonDefs(7) = Array("8", "B1", "CommandButton8")
ButtonDefs(8) = Array("9", "B1", "CommandButton9")
ButtonDefs(9) = Array("10", "B1", "CommandButton10")
'
'...CONTINUE THESE DEFINITIONS AS NEEDED...
' END OF BUTTON DEFINITIONS

Dim arr As Variant
For Each arr In ButtonDefs
'NOTE: the following assumes Option Base 0 (the default)
swcc = arr(0) 'sheet with change cell
cca = arr(1) 'change cell address
bn = arr(2) 'button name
If StrComp(Sh.Name, swcc, vbTextCompare) = 0 Then
If Target = Me.Worksheets(swcc).Range(cca) Then
Me.Worksheets(SHEET_WITH_BUTTONS).OLEObjects(bn). _
Object.Caption = Target.Text
End If
End If
Next
End Sub


Kind Regards
Tanya

 

[Tanya]

PS the line which highlights when you select DEBUG is

If Target = Me.Worksheets(swcc).Range(cca) Then

cheers
Tanya