Re: Message box before another macro

Giganews Newsgroups
Subject: Re: Message box before another macro
Posted by:  Dave Peterson (peters…@verizonXSPAM.net)
Date: Sun, 21 May 2006

What's in Q55?

maybe...

if lcase(range("q55").text) = "true" then

I'm guessing that you had an error #ref, #n/a, div/0, ... in that cell.

michaelberrier wrote:
>
> I need to add a message box to the front end of a search macro that
> will trigger based on certain criteria and, in the absence of those
> criteria, allow the macro to proceed.  Sounds like a simple
> "IF..Then..Else", but I cannot get the syntax to agree, even after
> pouring through this group and using previously suggested solutions.
>
> I need this:
>
> If Range("Q55") = "True" Then
> MsgBox"blah blah blah"
>
> Else RunMacro1
>
> VB kicks back a "Type Mismatch" every time on the very first statement
> here.  I have tried the True with and without quotes, same result.
>
> Entire code is below.  Help is appreciated.
>
> Sub Look_Here1()
>
> If Range("Q55") = "true" Then
>      MsgBox "Check Driver's License Expiration Date", 48, "Exprired
> Driver's License"
>
> Else
>    Dim FoundCell As Range
>    Dim WhatFor As Variant
>    WhatFor = ActiveSheet.Cells(7, 2).Value
>
>    Set FoundCell = Range("B8:B990").Find(What:=WhatFor,
> after:=ActiveCell, _
>                        SearchDirection:=xlNext, searchorder:=xlByRows,
> _
>                        MatchCase:=False)
>
>      If FoundCell Is Nothing Then
>      Range("A7").Select
>      ActiveCell.FormulaR1C1 = "X"
>      Range("D7").Select
>
>      Else
>
>      FoundCell.Offset(0, -1).Select
>      ActiveCell.FormulaR1C1 = "X"
>      Selection.Offset(0, 4).Select
>
>      End If
>      End If
>
> End Sub

--

Dave Peterson

Replies

In response to

Message box before another macro posted by michaelberrier on 21 May 2006