Recalc custom function automatically

[MuppetReaper]

bit of a strange one here!
I have a sheet that has some custom functions to calculate the total height and width of a range, but it does't recalc automatically if you adjust the size of the row/column.
So I added code to each sheet to recalc when a cell is clicked -

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Calculate
End Sub

but this seems to stop the user being able to use copy and paste on the sheet, as it seems to clear the clipboard when the new cell is selected.
So, I've had to add a couple of buttons to turn this on and off

Sub UpdatesOff()
    Application.EnableEvents = False
End Sub
Sub UpdatesOn()
    Application.EnableEvents = True
End Sub

But is there any other way around this? it seems daft to have to do this

thanks

 

[BarryL]

by custom functions do you mean UDF's? if so try put the below in the UDF code.

Application.Volatile

 

[MuppetReaper]

this is the function (I didn't write it)

Public Function COLWIDCOUNT(TgtCells As Range)
Application.Volatile True
No_of_Cols = TgtCells.Columns.Count
ColWidSubtotal = 0
For Lp1 = 1 To No_of_Cols
ColWidSubtotal = ColWidSubtotal + TgtCells.Cells(1, Lp1).ColumnWidth
Next Lp1
COLWIDCOUNT = ColWidSubtotal
End Function
Public Function ROWHGTCOUNT(TgtCells As Range)
Application.Volatile True
No_of_Rows = TgtCells.Rows.Count
RowHeightSubtotal = 0
For Lp1 = 1 To No_of_Rows
RowHeightSubtotal = RowHeightSubtotal + TgtCells.Cells(Lp1, 1).RowHeight
Next Lp1
ROWHGTCOUNT = RowHeightSubtotal
End Function

 

[RoryA]

Changing the height of rows or width of columns doesn't cause a recalculation so Application.Volatile will have no effect.

 

[MuppetReaper]

OK, so is there any way to make it recalc those cells without it clearing the clipboard?

 

[MuppetReaper]

any ideas please?