running a macro in another macro

[BM]

I have been trying to set up a macro which will run
another macro if a certain condition is met. Previously, I
have been given the following advice:

Sub StartHere()
If Range("C1").Value =1 Then
RunOtherMacro
End If
End Sub

Sub RunOtherMacro()
msgbox "Got Here"
End Sub

However, I am certainly no macro expert and I am still
experiencing problems. I am getting a message saying "sub
or function not defined" and it is highlighting
RunOtherMacro in the third line above.

I have changed RunOtherMacro to the name of the other
macro that I actually need to run, but I still get "sub or
function not defined".

When I look on Visual Basic Help it tells me that I need
look at the references and map DAO350.dll. I have done
this and it makes no difference to the error I am getting.

Can anybody help?

Thanks

 

[Bob Phillips]

That seems fine. Show the real code.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[BM]

Here is the real code.

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 07/04/2004 by bmcgraw
'

'Sub StartHere()
If Range("'Look up'!R8C6>0").Value = 1 Then
RunMacro2
End If
End Sub

'Sub RunMacro2
MsgBox "Got here"
End Sub

 

[Frank abel]

Hi
remove the apostrophe from
'Sub RunMacro2

make this
Sub RunMacro2

 

[BM]

Thanks. Now getting new error message

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 07/04/2004 by bmcgraw
'

'Sub StartHere()
If Range("'Look up'!R8C6>0").Value = 1 Then
RunMacro2
End If
End Sub

Sub RunMacro2()
MsgBox "Got here"
End Sub

The line:

If Range("'Look up'!R8C6>0").Value = 1 Then

is being highlighted and get message:

run time error '1004'

Method 'Range' of object'_Global failed.

Any ideas?

Many thanks

 

[Frank Kabel]

Hi

just use the following code(delete everything else form
your module):

option explicit
Sub StartHere()
If Range("'Look up'!R8C6").Value = 1 Then
RunMacro2
End If
End Sub

Sub RunMacro2()
MsgBox "Got here"
End Sub

Assumption: the sheet 'look up' exists

 

[BM]

Hi

Thanks. I have copied the suggestion below straight in
(deleting everything else). Still getting:

The line:
The sheet Look up definately exists. I cant understand why
this wont work. Any more ideas?

thanks

 

[Bob Phillips]

Frank suggested

If Range("'Look up'!R8C6").Value = 1 Then

not

If Range("'Look up'!R8C6>0").Value = 1 Then

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[BM]

Now working. Thanks Bob and Frank.

-----Original Message-----
Frank suggested

If Range("'Look up'!R8C6").Value = 1 Then

not

If Range("'Look up'!R8C6>0").Value = 1 Then

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)




.