Hell
Im trying to pices together code from here that will truncate the text to the left of and including "/"
This is what I have so far but it isnt working.

Sub Truncat

Dim rng As Rang
Dim c As Rang
Set rng = Selectio
For Each c In rn
c.Value = Left(ActiveCell.Value, InStr(1, ActiveCell.Value, "/") - 1
Nex
End Su

All help is greatly appreciated
Steven