1st. line
if target.row<6 then exit sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"badboybmw_886" wrote in message
...
Hello there,

I have a piece of VBA code that I have been using in a mock up excel
system for my A levels

the code places the cell number + and offset of 113 into the cell you
click on in coloumb B. Sort of working like an auto number in the next
cell. But i dont want it to do this for rows 1 -5 is there anyway of
doing this?

Heres the code;

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim RowOffset As Long
Dim IndexCol As String

RowOffset = 113

IndexCol = "B"

Intersect(ActiveCell.EntireRow, Columns(IndexCol)).Value =
ActiveCell.Row + RowOffset
End Sub

Any help would be greatly appreciated