Autofit Row Height

[Chewyhairball]

Hi
I have a range of cells Sheet1 C7:C1000 that autofit the row height when the data in those cells is changed.
The data is pulled from another sheet and updates when I type certain criteria into a combobox.

It works great and when more text is pulled through it automatically changes the the row height as I am typing in the combobox.

The VBA i have is a Worksheet_Calculate but i have found that it also tries to run if i am on other sheets and change C7:C1000 on them.

I thought putting the event in the specific sheet would mean it only ran on that sheet but its not the case.

I tried a Worksheet Change but that doesnt give me what i need as it required a <return> and thats not how my sheet runs. I use the combobox and it changes the data in the rows as i type.

Any ideas how I can keep my code but only have it run on the one sheet. Thanks

Private Sub Worksheet_Calculate()
 Dim Xrg As Range
    Set Xrg = Range("C7:C1000")
    If Not Intersect(Xrg, Range("C7:C1000")) Is Nothing Then
    rowheight
    End If
End Sub

 

[Fluff]

That will only run if that sheet is calculated, but it will run whenever any formulae on the sheet recalculate.

 

[Chewyhairball]

That will only run if that sheet is calculated, but it will run whenever any formulae on the sheet recalculate.

Yes. If I make a change to cells in sheet 2 it tries to run the code and errors. It’s a pain. ?

 

[Fluff]

If the rowheight code is crashing, I'd suggest starting a new thread asking how to prevent that.

 

[Chewyhairball]

If the rowheight code is crashing, I'd suggest starting a new thread asking how to prevent that.

Thanks. It works perfect as long as there are no other sheets being used. Think I’ll just have it as a separate worksheet. I’ve got to many tabs as it is. ? cheers.