Macro runs if ActiveCell is in column B

[hmaveal]

I know this is simple but can't get it to work.

I want to copy a relative range but only if the cursor is
in column B.

I will add a msgbox saying ..move the cursor to B and retry...

So I guess I use the IF..THEN..ELSE..statements

If ActiveCell = 2 (?) THEN

'''do something

ELSE

add msg box statement DIM and all that stuff

ENDIF
END SUB or something like that .. lol

 

[pedie]

[/FONT]
[FONT=Courier New]Option Explicit[/FONT]
[FONT=Courier New]Sub selectonlyBCOL()[/FONT]
[FONT=Courier New]If Selection.Column <> 2 Then
 MsgBox "Please first select col. B to run this code...", vbCritical, "TEST"
End If
End Sub

 

[Peter_SSs]

[/FONT]
[FONT=Courier New]Option Explicit[/FONT]
[FONT=Courier New]Sub selectonlyBCOL()[/FONT]
[FONT=Courier New]If Selection.Column <> 2 Then
 MsgBox "Please first select col. B to run this code...", vbCritical, "TEST"
End If
End Sub

I'm not exactly sure what the OP wants to do here but this doesn't actually determine if the ActiveCell is in column B (per the thread title). For example, if you select from G3 to B7 then the ActiveCell is in column G but Selection.Column = 2

So you would just need to replace 'Selection' in your code with 'ActiveCell' or may be the OP wants some code like this

If ActiveCell.Column = 2 Then
    'Copy code goes here
Else
    MsgBox "Message"
End If