Global Code & How to Setup & Access the Code

[JamieArvato]

I've setup a spreadsheet, it's got 7 sheets all with the same code behind them and then I'm going to have 15 copies of the file for different areas of the business....

I know that this code should be held somewhere and there should be only one copy of the code so chnages are very easy but have no idea how to do this....

I've set-up a Workbook called global and put a MsgBox code in it but don't know how to call this as if it is in the other workbook

Also what would happen if I changed the code whilst someone was using it ?

Thanks

 

[SkipVought]

Hi,

It's very bad design to have your DATA chopped up by some OTHER DATA ELEMENT VALUE, in your case, areas of the business.

The very first thing that I would recommend is consolidating your data with a column for areas of the business. If you need to report by areas of the business, its easy to do.

Second, since you have "... 7 sheets all with the same code behind them ..." that code could be put ONCE in a MODULE and it could be called from any of the Workbook events that reference a sheet or processed in the context of the ActiveSheet.

Please post your code, and we can begin helping you streamline it.

Skip,

_{[red]Be advised:[/red] When transmitting sheet music...
If it ain't baroque, don't fax it!}

 

[JamieArvato]

It's seperated by areas of the business for access reasons, all the files will be accessed at the same time at some point.

As all the files are identical I can link and stack up the 15 sets of data on a seperate sheet.

The spreadsheet is a daily time sheet, the 15 files are because it covers 600 staff in different areas.
The code makes the spreadsheet clickable and formats fields based on what has been selected and trys to minimise the mis-use by the unskilled people who will be the end users.

The reason the code is on every sheet is because it is Worksheet_SelectionChange & Worksheet_Change so I thought this had to be on the sheet ?!

Any advice/help is greatly appreciated.

The full code is below;


-----------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.UnProtect Password:="Mon"

On Error GoTo myErr

Application.EnableEvents = False
Application.ScreenUpdating = False

With Target
Set rng = Application.Intersect(Target, Range("M11:O360"))
If Not rng Is Nothing Then
Select Case .Column


Case 13 'column M

If Cells(.Row, "M").Value <> "" And Cells(.Row, "N").Value <> "" And Cells(.Row, "O").Value <> "" Then
If Cells(.Row, "N").Value - Cells(.Row, "M").Value - Cells(.Row, "O").Value <= 0 Then
Application.Undo
MsgBox "Hours Cannot Be A Minus Figure", vbCritical, "WARNING..."
End If
End If

If Cells(.Row, "M").Value <> "" Then

Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Value = ""
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = xlColorIndexNone


If Cells(.Row, "M").Value <= Cells(.Row, "I").Value Or Cells(.Row, "I").Value = "" Then
Cells(.Row, "AB").Interior.ColorIndex = 15
Cells(.Row, "AB").Value = ""
Else
Cells(.Row, "AB").Interior.ColorIndex = xlColorIndexNone
Cells(.Row, "AB").Value = "X"
End If

Else
Range(Cells(.Row, "M"), Cells(.Row, "O")).Value = ""
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = xlColorIndexNone
End If



Case 14 'column N

If Cells(.Row, "M").Value <> "" And Cells(.Row, "N").Value <> "" And Cells(.Row, "O").Value <> "" Then
If Cells(.Row, "N").Value - Cells(.Row, "M").Value - Cells(.Row, "O").Value <= 0 Then
Application.Undo
MsgBox "Hours Cannot Be A Minus Figure", vbCritical, "WARNING..."
End If
End If

If Cells(.Row, "M").Value = "" Then
Application.Undo
MsgBox "An Agent Cant Leave Before They Start!", vbCritical, "WARNING..."
Else


If Cells(.Row, "N").Value <> "" Then
If Cells(.Row, "N").Value <= Cells(.Row, "M").Value Then
Application.Undo
MsgBox "An Agent Cant Leave Early Than They Started!", vbCritical, "WARNING..."
End If
End If
End If

Case 15 'column O

If Cells(.Row, "M").Value <> "" And Cells(.Row, "N").Value <> "" And Cells(.Row, "O").Value <> "" Then
If Cells(.Row, "N").Value - Cells(.Row, "M").Value - Cells(.Row, "O").Value <= 0 Then
Application.Undo
MsgBox "Hours Cannot Be A Minus Figure", vbCritical, "WARNING..."
End If
End If


If Cells(.Row, "M").Value = "" Then
If Cells(.Row, "O").Value <> "" Then
Application.Undo
MsgBox "An Agent Cant Take Breaks if They Are Not In Work!", vbCritical, "WARNING..."
End If
End If





End Select
End If
End With


' Date Modified Field

With Target
Set rng2 = Application.Intersect(Target, Range("a11:ag360"))
If Not rng2 Is Nothing Then
Select Case .Column

Case 1 ' Column A
Cells(.Row, "AO").Value = Now() & "-" & Application.UserName
Case 2 ' Column B
Cells(.Row, "AP").Value = Now() & "-" & Application.UserName
Case 3 ' Column C
Cells(.Row, "AQ").Value = Now() & "-" & Application.UserName
Case 4 ' Column D
Cells(.Row, "AR").Value = Now() & "-" & Application.UserName
Case 5 ' Column E
Cells(.Row, "AS").Value = Now() & "-" & Application.UserName
Case 6 ' Column F
Cells(.Row, "AT").Value = Now() & "-" & Application.UserName
Case 7 ' Column G
Cells(.Row, "AU").Value = Now() & "-" & Application.UserName
Case 8 ' Column H
Cells(.Row, "AV").Value = Now() & "-" & Application.UserName
Case 9 ' Column I
Cells(.Row, "AW").Value = Now() & "-" & Application.UserName
Case 10 ' Column J
Cells(.Row, "AX").Value = Now() & "-" & Application.UserName
Case 11 ' Column K
Cells(.Row, "AY").Value = Now() & "-" & Application.UserName
Case 12 ' Column L
Cells(.Row, "AZ").Value = Now() & "-" & Application.UserName
Case 13 ' Column M
Cells(.Row, "BA").Value = Now() & "-" & Application.UserName
Case 14 ' Column N
Cells(.Row, "BB").Value = Now() & "-" & Application.UserName
Case 15 ' Column O
Cells(.Row, "BC").Value = Now() & "-" & Application.UserName
Case 16 ' Column P
Cells(.Row, "BD").Value = Now() & "-" & Application.UserName
Case 17 ' Column Q
Cells(.Row, "BE").Value = Now() & "-" & Application.UserName
Case 18 ' Column R
Cells(.Row, "BF").Value = Now() & "-" & Application.UserName

Case 29 ' Column AC
Cells(.Row, "BQ").Value = Now() & "-" & Application.UserName
Case 30 ' Column AD
Cells(.Row, "BR").Value = Now() & "-" & Application.UserName
Case 31 ' Column AE
Cells(.Row, "BS").Value = Now() & "-" & Application.UserName
Case 32 ' Column AF
Cells(.Row, "BT").Value = Now() & "-" & Application.UserName
Case 33 ' Column AG
Cells(.Row, "BU").Value = Now() & "-" & Application.UserName
End Select
End If
End With



' Absence Reason

With Target
Set rng3 = Application.Intersect(Target, Range("AA11:AA360"))
If Not rng3 Is Nothing Then
Select Case .Column

Case 27 'column AA
If Cells(.Row, "M").Value = "" Then
If Cells(.Row, "AA").Value = "" Then
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = xlColorIndexNone
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = xlColorIndexNone
Cells(.Row, "AA").Value = ""
Else
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "S"), Cells(.Row, "Z")).ClearContents
Range(Cells(.Row, "AB"), Cells(.Row, "AB")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
' Cells(.Row, "AA").Value = "X"
Cells(.Row, "AA").Interior.ColorIndex = xlColorIndexNone
End If
Else
If MsgBox("Are you sure you want to delete hours?", vbYesNo) = 6 Then
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "S"), Cells(.Row, "Z")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
'Cells(.Row, "aa").Value = "X"
Cells(.Row, "AA").Interior.ColorIndex = xlColorIndexNone
Else
Range(Cells(.Row, "S"), Cells(.Row, "AA")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
End If
End If

Cells(.Row, "L").Select

End Select
End If
End With

Application.EnableEvents = True
Application.ScreenUpdating = True


Myexit:
ActiveSheet.Protect Password:="Mon", DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub

myErr:
MsgBox "ERROR, Please Contact Reporting & Planning Team For Assistance"

Application.ScreenUpdating = True
ActiveSheet.Protect Password:="Mon", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
Resume Myexit

End Sub

-------------------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.UnProtect Password:="Mon"

On Error GoTo myErr

Application.EnableEvents = False
Application.ScreenUpdating = False

With Target
Set rng = Application.Intersect(Target, Range("S11:Ab360"))
If Not rng Is Nothing Then
Select Case .Column

Case 19 'column S
If Cells(.Row, "M").Value = "" Then
If Cells(.Row, "S").Value = "X" Then
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = xlColorIndexNone
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = xlColorIndexNone
Cells(.Row, "S").Value = ""
Else
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "S"), Cells(.Row, "AB")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "S").Value = "X"
Cells(.Row, "S").Interior.ColorIndex = xlColorIndexNone
End If
Else
If MsgBox("Are you sure you want to delete hours?", vbYesNo) = 6 Then
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "T"), Cells(.Row, "AA")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "S").Value = "X"
Cells(.Row, "S").Interior.ColorIndex = xlColorIndexNone
End If
End If
Cells(.Row, "L").Select

Case 20 'column T
If Cells(.Row, "M").Value = "" Then
If Cells(.Row, "T").Value = "X" Then
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = xlColorIndexNone
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = xlColorIndexNone
Cells(.Row, "T").Value = ""
Else
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "S"), Cells(.Row, "AB")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "T").Value = "X"
Cells(.Row, "T").Interior.ColorIndex = xlColorIndexNone
End If
Else
If MsgBox("Are you sure you want to delete hours?", vbYesNo) = 6 Then
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "T"), Cells(.Row, "AA")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "t").Value = "X"
Cells(.Row, "t").Interior.ColorIndex = xlColorIndexNone
End If
End If
Cells(.Row, "L").Select

Case 21 'column U
If Cells(.Row, "M").Value = "" Then
If Cells(.Row, "U").Value = "X" Then
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = xlColorIndexNone
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = xlColorIndexNone
Cells(.Row, "U").Value = ""
Else
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "S"), Cells(.Row, "AB")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "U").Value = "X"
Cells(.Row, "U").Interior.ColorIndex = xlColorIndexNone
End If
Else
If MsgBox("Are you sure you want to delete hours?", vbYesNo) = 6 Then
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "T"), Cells(.Row, "AA")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "u").Value = "X"
Cells(.Row, "u").Interior.ColorIndex = xlColorIndexNone
End If
End If
Cells(.Row, "L").Select

Case 22 'column V
If Cells(.Row, "M").Value = "" Then
If Cells(.Row, "V").Value = "X" Then
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = xlColorIndexNone
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = xlColorIndexNone
Cells(.Row, "V").Value = ""
Else
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "S"), Cells(.Row, "AB")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "V").Value = "X"
Cells(.Row, "V").Interior.ColorIndex = xlColorIndexNone
End If
Else
If MsgBox("Are you sure you want to delete hours?", vbYesNo) = 6 Then
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "T"), Cells(.Row, "AA")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "v").Value = "X"
Cells(.Row, "v").Interior.ColorIndex = xlColorIndexNone
End If
End If
Cells(.Row, "L").Select


Case 23 'column W
If Cells(.Row, "M").Value = "" Then
If Cells(.Row, "W").Value = "X" Then
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = xlColorIndexNone
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = xlColorIndexNone
Cells(.Row, "W").Value = ""
Else
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "S"), Cells(.Row, "AB")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "W").Value = "X"
Cells(.Row, "W").Interior.ColorIndex = xlColorIndexNone
End If
Else
If MsgBox("Are you sure you want to delete hours?", vbYesNo) = 6 Then
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "T"), Cells(.Row, "AA")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "w").Value = "X"
Cells(.Row, "w").Interior.ColorIndex = xlColorIndexNone
End If
End If
Cells(.Row, "L").Select

Case 24 'column X
If Cells(.Row, "M").Value = "" Then
If Cells(.Row, "X").Value = "X" Then
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = xlColorIndexNone
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = xlColorIndexNone
Cells(.Row, "X").Value = ""
Else
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "S"), Cells(.Row, "AB")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "X").Value = "X"
Cells(.Row, "X").Interior.ColorIndex = xlColorIndexNone
End If
Else
If MsgBox("Are you sure you want to delete hours?", vbYesNo) = 6 Then
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "T"), Cells(.Row, "AA")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "x").Value = "X"
Cells(.Row, "x").Interior.ColorIndex = xlColorIndexNone
End If
End If
Cells(.Row, "L").Select

Case 25 'column Y
If Cells(.Row, "M").Value = "" Then
If Cells(.Row, "Y").Value = "X" Then
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = xlColorIndexNone
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = xlColorIndexNone
Cells(.Row, "Y").Value = ""
Else
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "S"), Cells(.Row, "AB")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "Y").Value = "X"
Cells(.Row, "Y").Interior.ColorIndex = xlColorIndexNone
End If
Else
If MsgBox("Are you sure you want to delete hours?", vbYesNo) = 6 Then
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "T"), Cells(.Row, "AA")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "y").Value = "X"
Cells(.Row, "y").Interior.ColorIndex = xlColorIndexNone
End If
End If
Cells(.Row, "L").Select

Case 26 'column Z
If Cells(.Row, "M").Value = "" Then
If Cells(.Row, "Z").Value = "X" Then
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = xlColorIndexNone
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = xlColorIndexNone
Cells(.Row, "Z").Value = ""
Else
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "S"), Cells(.Row, "AB")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "Z").Value = "X"
Cells(.Row, "Z").Interior.ColorIndex = xlColorIndexNone
End If
Else
If MsgBox("Are you sure you want to delete hours?", vbYesNo) = 6 Then
Range(Cells(.Row, "M"), Cells(.Row, "O")).ClearContents
Range(Cells(.Row, "M"), Cells(.Row, "Q")).Interior.ColorIndex = 15
Range(Cells(.Row, "T"), Cells(.Row, "AA")).ClearContents
Range(Cells(.Row, "S"), Cells(.Row, "AB")).Interior.ColorIndex = 15
Cells(.Row, "z").Value = "X"
Cells(.Row, "z").Interior.ColorIndex = xlColorIndexNone
End If
End If
Cells(.Row, "L").Select





Case 28 'column AB
'clear the row

If (Cells(.Row, "AB").Value = "X") Then
Cells(.Row, "AB").Value = ""
Cells(.Row, "AB").Interior.ColorIndex = 15
Else
If Cells(.Row, "AB").Value = "" And Cells(.Row, "G").Value <= Cells(.Row, "C").Value And Cells(.Row, "M").Value <> "" Then
Cells(.Row, "AB").Value = "X"
Cells(.Row, "AB").Interior.ColorIndex = xlColorIndexNone
End If
End If
Cells(.Row, "L").Select



End Select
End If
End With

' Date Modified Field

With Target
Set rng2 = Application.Intersect(Target, Range("a11:ag360"))
If Not rng2 Is Nothing Then
Select Case .Column


Case 19 ' Column S
Cells(.Row, "BG").Value = Now() & "-" & Application.UserName
Case 20 ' Column T
Cells(.Row, "BH").Value = Now() & "-" & Application.UserName
Case 21 ' Column U
Cells(.Row, "BI").Value = Now() & "-" & Application.UserName
Case 22 ' Column V
Cells(.Row, "BJ").Value = Now() & "-" & Application.UserName
Case 23 ' Column W
Cells(.Row, "BK").Value = Now() & "-" & Application.UserName
Case 24 ' Column X
Cells(.Row, "BL").Value = Now() & "-" & Application.UserName
Case 25 ' Column Y
Cells(.Row, "BM").Value = Now() & "-" & Application.UserName
Case 26 ' Column Z
Cells(.Row, "BN").Value = Now() & "-" & Application.UserName
Case 27 ' Column AA
Cells(.Row, "BO").Value = Now() & "-" & Application.UserName
Case 28 ' Column AB
Cells(.Row, "BP").Value = Now() & "-" & Application.UserName

End Select
End If
End With


Myexit:

Application.ScreenUpdating = True
ActiveSheet.Protect Password:="Mon", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
Exit Sub

myErr:
MsgBox "ERROR, Please Contact Reporting & Planning Team For Assistance"
Resume Myexit


End Sub

 

[SkipVought]

I'll take a look. Right now I'm doing some hunny-do DIY renovations.

If your data must be segmented, I'd access it using MS Query via Data/Get External Data

Skip,

_{[red]Be advised:[/red] When transmitting sheet music...
If it ain't baroque, don't fax it!}