Cell Value >0 then Run Macro

[pinkpanther6666]

Im trying to run some VBA and getting a Compile error stating Else without If

My code is listed below
Cant seem for the life of me what is wrong ... probably staring me in the face



Range("C4").Select
If Range("C4").Value > 0 Then Range("B4:G4").Select
Call Macro1
Else End

All macro1 is a formatting macro with thick borders


Can anyone help


Many Thanks


Steve

 

[Scott T]

There are two forms of if statements the one line and the multiline
The one line does not need and end if. Your code has the one line version

If Range("C4").Value > 0 Then Range("B4:G4").Select

Because of this your Else does not have a if statement with it.

the multi line version would be

If Range("C4").Value > 0 Then
[INDENT]Range("B4:G4").Select[/INDENT]
[INDENT]  Call Macro1[/INDENT]
else[INDENT]  code to run if false[/INDENT]
 
 End If

 

[hiker95]

pinkpanther6666,

We have not see all of your macro code?

When posting VBA code, please use Code Tags - like this:

[code=rich]

'Paste your code here.

[/code]



See if the following macro codes will help you to understand the logic?

Sub test()

Range("C4").Select
If Range("C4").Value > 0 Then
  Range("B4:G4").Select
  Call Macro1
Else
  Exit Sub
End If

End Sub


Sub Macro1()

  'All macro1 is a formatting macro with thick borders?????

  Range("A1").Select
  
End Sub

 

[pinkpanther6666]

Many thanks to all who replied and its all working now

Regards


Steve

 

[hiker95]

pinkpanther6666,

Thanks for the feedback.

You are very welcome. Glad we could help.

And, come back anytime.