```
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Application.EnableEvents = False
ActiveSheet.Unprotect Password:="WellingtonFrac"
Set Rng = Intersect(Target, Range("A9:A20, A22:A34, A59:A61, E9:DA56, E59:DA82"))
If Not Rng Is Nothing Then Call Capitalise(Rng)
Set Rng = Intersect(Target, Range("D53:D1583"))
If Not Rng Is Nothing Then Call ConvertToTime(Rng)
' I assume this is the range you want to automatically trigger the recorded macro. If not, change accordingly
' If Not Intersect(Target, Range("C9:C32")) Is Nothing Then
' Call CopyWellColors
' End If
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, Password:="WellingtonFrac"
Application.EnableEvents = True
Sheets("Frac Report").EnableSelection = xlNoRestrictions
Sheets("Stage Times").EnableSelection = xlNoRestrictions
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range, RngRow As Range, RngCol As Range
Set Rng = Intersect(Target, Range("E9:DA56"))
If Not Rng Is Nothing Then
Set RngRow = Range("E7:DA7")
'Set RngCol = Range("C9:C56")
RngRow.Interior.ColorIndex = 37 'xlColorIndexNone
'RngCol.Interior.ColorIndex = 46 'xlColorIndexNone
RngRow(Target.Column - 4).Interior.ColorIndex = 46
'RngCol(Target.Row - 8).Interior.ColorIndex = 37
End If
Set Rng = Intersect(Target, Range("E59:DA106"))
If Not Rng Is Nothing Then
Set RngRow = Range("E57:DA57")
'Set RngCol = Range("C59:C106")
RngRow.Interior.ColorIndex = 37 'xlColorIndexNone
'RngCol.Interior.ColorIndex = 46 'xlColorIndexNone
RngRow(Target.Column - 4).Interior.ColorIndex = 46
'RngCol(Target.Row - 58).Interior.ColorIndex = 37
End If
End Sub
```