Hey Mate,

Thanks Heaps for that. You're a Star!
I have since altered it slightly to watch a wider range of cells and spit out more information.
This will definitely make my life a hell of a lot easier for tracking materials.

Here is my updated version of your creation:

Private Sub Worksheet_Change(ByVal Target As Range)

'Create log of every change made in Log
If Target.Column >= 1 And (Target.Column <= 10) Then
rmax = Sheets("log").Range("A" & Rows.Count).End(xlUp).Row + 1
With Sheets("log")
.Cells(rmax, 1) = Now()
.Cells(rmax, 2) = Environ("USERNAME")
For i = 1 To 10
.Cells(rmax, i + 2) = Sheets("DR # ").Cells(Target.Row, i)
Next i
End With
End If
End Sub

Thanks again for your help

Bam