Posted to microsoft.public.excel.programming

Cimjet[_3_] Cimjet[_3_] is offline

external usenet poster

Posts: 157

Working with 2 range but wont work with 3

Hi Everyone
This is working ok but if I add one more range, it wont work.

Private Sub Worksheet_Change(ByVal Target As Range)
Set myrge = Worksheets("Calendar").Range("b6:af17", "b21:af32")
Range("R50") = Application.WorksheetFunction.CountIf(myrge, "V")
End Sub

This wont work:
Private Sub Worksheet_Change(ByVal Target As Range)
Set myrge = Worksheets("Calendar").Range("b6:af17", "b21:af32", "B36:af47")
Range("R50") = Application.WorksheetFunction.CountIf(myrge, "V")
End Sub
Regards
Cimjet

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Code wont work - help please	Wes_A[_2_]	Excel Programming	6	April 20th 10 03:38 PM
why is there a { in my formula and why wont it work?	Gorgsey	Excel Discussion (Misc queries)	6	March 19th 09 03:17 AM
IF sum is GreaterThan 0... why wont this work!?	Tan.	Excel Worksheet Functions	3	January 18th 06 09:36 PM
Anyone know why this wont work?	Mark Stephens	Excel Programming	2	June 13th 05 06:08 AM
macro wont work	Dan	Excel Programming	1	March 2nd 05 04:41 PM

All times are GMT +1. The time now is 06:54 PM.

About Us

"It's about Microsoft Excel"

Menu

About Us