Message Box to advise corrective action required

[FUGMAN]

If a Command Button is activated to run a macro and if any of the rows 1 through 7 are active, do not run macro…..but show message box advising that this is the case. Message Box to have a button having caption “ok” which will return control back to user. If neither of the rows 1 through 7 are the Active Row, run the macro.

[jeffreybrown]

Give this a try...

Sub Button1_Click()
    If activecell.Row > 7 Then
        Call OtherMacro
    ElseIf activecell.Row < 8 Then
        MsgBox "Marcro cannot be run on a row between 1 and 7"
        Exit Sub
    End If
End Sub

[FUGMAN]

jeffreybrown

Works like a charm. Thank you very much.
Would you have time to look at another "if then else" issue?

If "A37" has more than one letter then "C15" = " A37" and "C16"="A38" and Otherwise "C15" =" " and "C16" = "A37"

Thanks again for your solution to my inquiry.

[jeffreybrown]

Could be as simple as...

Sub Look_At_A37()
    If Len(Range("A37")) > 1 Then
        Range("C15").Value = Range("A37").Value
        Range("C16").Value = Range("A38").Value
    End If
End Sub

[FUGMAN]

jeffreybrown

Thanks a million. The "len" part is what I wasn't getting.

[jeffreybrown]

Awesome. You're welcome and glad you now have a workable solution.