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

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

try this-

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
If Cell.Row 5 Then
Cells(Cell.Row, "B").Value = Cell.Row + 113
End If
Next
End Sub

"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