What is wrong with my code?

[Finance20]

Sub Multiplier()
'
'Muttiplier Number Format by MEI given FYE & Clinic Type
'
'
Workbooks("RL-Facility Charge Lookup 1-7-2011 2010.xls").Activate
Worksheets("Facility Lookup").Activate
Range("F11:F14").Activate
If Range(A6) = "RHCP" Or "RHCI" And Range(B4) = "2005" Then
Range("F11:F14").Value = (1.029 * 0.25) + (1.031 * 0.75)


End If
End Sub

I am getting error in debugger on Lines beginning with: If Range

 

[Finance20]

Yes...cell is Text format ie(2005, 2006 etc)

 

[VoG]

Then

If (Range("A6").Value = "RHCP" Or Range("A6").Value = "RHCI") And Range("B4").Value = "2005" Then
    Range("F11:F14").Value = 1.0305
End If

 

[Finance20]

Nevermind I got it! The RHCP etc was referencing the wrong cell, needed to be B6 instead of A6. Stupid mistake of mines. Thanks!

 

[Finance20]

How many times can I see the if statement in VBA? I need to use it at least 20x for these cells.

 

[VoG]

I'm not aware of a limit but there must be one. You might be better off with a Select Case statement.

 

[Finance20]

How would I call the macro (to automatically run) if the date cell (B4) is change.

 

[VoG]

Right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "B4" Then
    Application.EnableEvents = False
    Call Multiplier
    Application.EnableEvents = True
End If
End Sub