Yes. The code as you have written it works for me
(corrected for wordwrap of course) when pasted to the
ThisWorkbook code module.

Regards,
Greg

-----Original Message-----
To save copying the code into numerous other worksheets
within the same
workbook is it possible to do something like the
following ?

Private Sub Workbook_SheetChange(ByVal Sh As Object,
ByVal Target As
Range)

If Not Intersect(Target, Columns("A")) Is Nothing Then
Target.Offset(, 1).IndentLevel = Target.Value
End If

End Sub


Regards
Peter


---
Message posted from http://www.ExcelForum.com/

.