How to Call a Macro with tow conditions

[azad092]

Hi
I am using the given code to call a macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$4" Then
Call DataEntryToExpense
End If
End Sub

I want to add one more condition to call the macro
first condition is the specific word in the cell B4 and the second condition is d4
so when B4 have a specific and and the D4 have the specific word then the macro should be run
please guide me in this issue

 

[bebo021999]

What is this?

Sub DataEntryToUtelities()

Are you trying to Call DataEntryToUtilities()?

 

[azad092]

Test with:

Replace
Call DataEntryToExpense
by
Msgbox "OK"

Ok dear thanks for your kind response.... there was a spelling mistake in sheet name and macro name
thanks again

 

[azad092]

What is this?

Sub DataEntryToUtelities()

Are you trying to Call DataEntryToUtilities()?

Ok dear thanks for your kind response.... there was a spelling mistake in sheet name and macro name
thanks again