Autofit VBA question

[helpme20]

I am trying to write a VBA formula using the Workbook Sheetchange formula and I need some help please.

Private Sub Workbook_Open()

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Columns().AutoFit
End Sub

I only want it to work with one of my sheets. it is named ProductFinder and I only want it to work for the data in cells, $Q$6:$W$104 (BTW I have named that cell range "Overall" if that helps)



Can someone help me with this? Thank you!

 

[helpme20]

If you use this

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address(0, 0) = "T4" Then
      MsgBox "running"
      With Range("Q6:W104")
         .WrapText = False
         .Columns.AutoFit
         .Rows.AutoFit
      End With
   End If
End Sub

do you get the message box appear?

no , nothing appears

 

[Fluff]

Ok, put this in a normal module & run it, then try changing T4 again.

Sub reset()
   Application.EnableEvents = True
End Sub