I am trying to write code that will call a macro when the value of
cell is equal to a defined text.

Example:

If C28 = "Remind", then Call Macro_Name.

Can anyone help?

Thanks!

From Google:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value 10 Then
MsgBox "Put your macro code here in place of the MsgBox line"
End If
End If
End Sub


Regards,
Ryan--


--
RyGuy


" wrote:

I am trying to write code that will call a macro when the value of
cell is equal to a defined text.

Example:

If C28 = "Remind", then Call Macro_Name.

Can anyone help?

Thanks!

How does C28 get to be "Remind"?

I will assume a calculated formula.

Private Sub Worksheet_Calculate()
On Error GoTo stoppit
Application.EnableEvents = False
With Me.Range("C28")
If .Value = "remind" Then
Call Macroname
End If
End With
stoppit:
Application.EnableEvents = True
End Sub

The is sheet event code. Right-click on the sheet tab and "View Code"

Copy/paste into that module.


Gord Dibben MS Excel MVP

On Fri, 15 Feb 2008 10:16:10 -0800 (PST), wrote:

I am trying to write code that will call a macro when the value of
cell is equal to a defined text.

Example:

If C28 = "Remind", then Call Macro_Name.

Can anyone help?

Thanks!

On Feb 15, 12:14*pm, Gord Dibben <gorddibbATshawDOTca wrote:
How does C28 get to be "Remind"?

I will assume a calculated formula.

Private Sub Worksheet_Calculate()
*On Error GoTo stoppit
* *Application.EnableEvents = False
* *With Me.Range("C28")
* *If .Value = "remind" Then
* * * * * *Call Macroname
*End If
End With
stoppit:
Application.EnableEvents = True
End Sub

The is sheet event code. *Right-click on the sheet tab and "View Code"

Copy/paste into that module.

Gord Dibben *MS Excel MVP



On Fri, 15 Feb 2008 10:16:10 -0800 (PST), wrote:
I am trying to write code that will call a macro when the value of
cell is equal to a defined text.

Example:

If C28 *= "Remind", then Call Macro_Name.

Can anyone help?

Thanks!- Hide quoted text -

- Show quoted text -

Thanks Gord! That worked :)

Good to hear.

Thanks for the feedback

On Fri, 15 Feb 2008 12:08:15 -0800 (PST), wrote:

Thanks Gord! That worked :)