I want this code to function on the current position, 13th column

So if I am in A1 it should be looking at M1

If ActiveSheet.Range(1, 13) = "" Then
OptNoL.Value = True
ElseIf ActiveSheet.Range(1, 13) = 30 Then
opt30L.Value = True
ElseIf ActiveSheet.Range(1, 13) = 60 Then
opt60l.Value = True

H Patrick.

Try:

With ActiveCell.Offset(0,12)
If .Value = "" Then
OptNoL.Value = True
ElseIf .Value = 30 Then
opt30L.Value = True
ElseIf .Value = 60 Then
opt60l.Value = True
Else
'Leave unchanged '<<===== ???
End If
End With


(Note that Range("A1").Offset(1,13) returns the N2 cell)


---
Regards,
Norman



"Patrick Simonds" wrote in message
...
I want this code to function on the current position, 13th column

So if I am in A1 it should be looking at M1

If ActiveSheet.Range(1, 13) = "" Then
OptNoL.Value = True
ElseIf ActiveSheet.Range(1, 13) = 30 Then
opt30L.Value = True
ElseIf ActiveSheet.Range(1, 13) = 60 Then
opt60l.Value = True