Public Sub ColorTheColumn(MyColumn As String, mySheet As String, Colorit As Double)

'   This subroutine will change the background color of a column based on finding the text
'   passed (as myColumn).

'   This subroutine potentially requires the function "FindColumn" being available

'   Copyright: Abbydale Systems LLC.

Dim ColorCol As Integer
If IsNumeric(MyColumn) Then
    ColorCol = MyColumn
Else
    ColorCol = FindColumn(MyColumn, mySheet)
End If
LastRow = ThisWorkbook.Worksheets(mySheet).Cells(Rows.Count, ColorCol).End(xlUp).Row
ThisWorkbook.Worksheets(mySheet).Range(Cells(1, ColorCol).Address(), Cells(LastRow, ColorCol).Address()).Interior.Color = Colorit
End Sub