MsgBox if Selection is Not in a Specific Row

[canam]

I have a macro that updates a sheet based on the active cell that is currently selected. This active cell needs to be in column B. If a cell from any other column is selected it will cause problems. What I would like to do is have code run in the macro before anything is done that shows a message box if the active cell is in any row other than B. Can anyone help with the code to accomplish this? Thanks

 

[DonkeyOte]

If ActiveCell.Column <> 2 Then
MsgBox "Select Cell in B" & vblf & "Routine Will Now Terminate",vbcritical,"Error"
Exit Sub
End If

 

[Richard Schollar]

Hi

If Intersect(ActiveCell,Range("B:B")) Is Nothing Then
  'Activecell isn't in B column - take appropriate action
Else
  'Activecell is in B column - success!
End If

 

[Jonmo1]

That's fairly straight forward

If ActiveCell.Column <> 2 Then
    MsgBox "You're not in column B"
    Exit Sub
End If

However, if your macro depends on the active cell being in a specific column, that indicates your code uses alot of select and activate. You might be well served spending a little time eliminating select from your code. You don't have to select cells/sheets in order to manipulate them...And add sheet names to each Range reference

Example.

Sheets("Sheet2").Select
Range("A1").Select
Selection.Copy
Sheets("Sheet1").Select
Range("B1").Select
Selection.PasteSpecial xlpastevalues

that could be changed to

Sheets("Sheet2").Range("A1").Copy
Sheets("Sheet1").Range("B1").PasteSpecial xlpastevalues

Basically anywhere you see Selection, replace that with whatever was previously selected.

You're code will be much faster, and not dependant on where the user puts the active cell.

 

[canam]

Thank you all.