I am using 2 of
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
Here are the 2 codes that I'm using
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Use the Range to select desired cells
If Not Intersect(Target, Range("E18,E32,E46,E60,E74,H20,H34,H48,H62,H76,H88,H100")) Is Nothing Then
Target.Select
AutoFitMergedCellRowHeight
End If
End Sub
Code: Select all
Private Sub Worksheet_Activate()
Me.ScrollArea = Range("go").Address
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Me.ScrollArea = Range("go").Resize(Range("go").Rows.Count).Address
End Sub