I would like to expand the below macro with the following requirements:
Requirement No. 1:
The macro should check right at the beginning whether the active cell of the worksheet 'Offer' is in Column B (starting from B2).
If not, a msgbox should say that only entries in Column B are allowed.
And Requirement No. 2
... the macro will only run all the way and copy the named range over, if ...
... in any of the cells in Column B (spanning from B2:B80), the value 03-014-00-01 is entered, If any other value is entered and the macro is activated (by pressing a macro button), a msgbox will say that this number is not a valid no.
( I do not want a worksheet change event, ie. not a Macro like ... Sub Worksheet_Change(ByVal Target As Range)). I got the latter solution already.
I have attached a sample file for your convenience.
Thank you very much in advance for your valuable and professional help.
Dim wS3 As Worksheet
Dim rCnt As Long, cCnt As Long
Application.ScreenUpdating = False
Set wS3 = Worksheets("Offer")
Application.Range("Set_OMF_Basic").Copy Destination:=Cells(ActiveCell.Row + 1, 1)
Application.CutCopyMode = False
Application.ScreenUpdating = True