Ready to get started with anonymous questions today? It's easy! Learn more.
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Not Intersect(Target, Range("A1")) Is Nothing Then Range("A2:A" & Rows.Count).RowHeight = 15 If Target <> "" Then aRows = Split(Target, ",") For Each rw In aRows Rows(rw).AutoFit Next End If End If Application.ScreenUpdating = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.