Re: $$Excel-Macros$$ Backup file on every save

try this code and check if it helps Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ' ---save the backup--- Me.SaveAs Filename:="F:\MyData\" & Me.Name '---save the main file--- Me.SaveAs Filename:="D:\MyDocument\" & Me.Name Application.DisplayAlerts = True End

Re: $$Excel-Macros$$ List all Excel Workbooks

> 0 Then For Each vFName In .FoundFiles RowN = RowN + 1 ActiveSheet.Cells(RowN, 1).Value = SpecifiedDir ActiveSheet.Cells(RowN, 2).Value = vFName Next End If End With End Sub '--end of code - Looking forward to

Re: $$Excel-Macros$$ How to add command button in excel....

visit to this site: http://office.microsoft.com/en-us/excel-help/add-a-button-and-assign-a-macro-to-it-in-a-worksheet-HP010236676.aspx On Thu, Sep 8, 2011 at 11:55 PM, Madhukar wrote: > Hi all, > I'm new to VBA Programming. But how o add a command button in excel without > using form. > > -- -

Re: $$Excel-Macros$$ get name of months from date

assuming your date is in cell A2; also try this formula =TEXT(A2,"[$-6000446]") Punjabi month name ?? On Sun, May 8, 2011 at 6:18 PM, Rajesh K R wrote: > Hi Experts > If I want to get the name of month from  dates >  1/4/11    - April > 5/5/11   - May > > how I can I do it with a formula o

Re: $$Excel-Macros$$ discussexcel : Formula : Extract email address from sentence in cell

Dear Mr. Ayush Please try =TRIM(RIGHT(SUBSTITUTE(LEFT(A2,FIND(" ",A2&" ",FIND("@",A2))-1)," ",REPT(" ",99)),99)) or (Array Formula:) =MID(LEFT(A2,FIND(" ",A2&" ",FIND("@",A2))),COUNT(SEARCH(" *@&qu

Re: $$Excel-Macros$$ File attachement

please tell me.. what is the previous / original subject of this case "FILE ATTACHMENT" as a subject is not make a sense anymore http://groups.google.com/group/excel-macros/browse_thread/thread/def081e4a88ac093 On Thu, Mar 10, 2011 at 9:49 PM, Cesar Delanoval wrote: > I am sending you the sam

Re: $$Excel-Macros$$ Fomula to find the Missing Numbers in the sequence - Reg

Create a List of Missing Numbers ?? use MissList FUNCTION =MissList(A1:A10001) entered as array formula see example in a workbook: http://www.box.net/shared/a1yhno3jb2 On Mon, Feb 28, 2011 at 3:58 PM, Prathap wrote: > Dear All, > > > I have an excel sheet in which i need to find the missing

Re: $$Excel-Macros$$ Delete extra information from a cell

please test if it helps Sub BlaBlaBla() 'siti Vi / jakarta, 2 mar 2011 Dim Dat As Range, r As Long, c As Integer Set Dat = Sheets(1).Cells(1).CurrentRegion For r = 1 To Dat.Rows.Count c = InStr(1, Dat(r, 1), " 12 $", vbTextCompare) - 1 Dat(r, 2) = Le

Re: $$Excel-Macros$$ Need Help!!!!!!!!!!!!!!!!!

That was Excel limitation: max number of criteria (unique values list)on Auto Filter = 1000 On 2/13/11, Aamir Shahzad wrote: > sheet attached, simply when you want to use auto filter you must select all > your data till at the end. > Regards, > Aamir Shahzad > > On Wed, Feb 9, 2011 at 10:27 AM,

Re: $$Excel-Macros$$ HOW TO CONVERT DATE IN TEXT WITH FOMULA

just =TEXT(E5,"") On Wed, Feb 2, 2011 at 2:39 PM, solomon raju wrote: > Hi All, > > How can we extract month in text. Can someone define some formula for > this. > > Attached my question in clear. > > Regards, > Solomon > > > -- ---

Re: $$Excel-Macros$$ Macro to sort data in Ascending/Descending order

Why not using available [Sort Ascending / Descending] buttons in Auto Filter ? On 1/26/11, San Pat wrote: > Hi All, > > I am working on a excel with data in many columns. > > I want to add two macro button on each heading to sort data, one for > Ascending sort +and second for Descending sort. >

Re: $$Excel-Macros$$ How to get the address of a cell in VBA

Sub ABCFoundCell() Dim x As Range Set x = Cells.Find(What:="ABC", _ After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, _ SearchFormat:=False) MsgBox "the cell address is : " & x.Address End Sub

Re: $$Excel-Macros$$ Macros for paste special-transpose

Sub Bang() Dim Rng As Range Set Rng = Cells(1).CurrentRegion Rng.Copy Rng(1).Offset(Rng.Rows.Count + 2, 0).PasteSpecial _ Paste:=xlPasteAll, Transpose:=True End Sub On Tue, Jan 25, 2011 at 10:12 AM, Manoj b wrote: > Hello All, > > Please can somebody advise me macros for paste special

Re: $$Excel-Macros$$ Re: Number sequentially, skipping blank cells

please check this formula (written in A2) =IF(A1=COUNTA($B$2:B2),"",COUNTA($B$2:B2)) best regards, On Fri, Jan 7, 2011 at 1:06 PM, Rahul Gandhi wrote: > Can you please let us know what exactly you require in output > > On Jan 7, 4:01 am, scoobysnack88 wrote: > > Does anyone have a formula or

Re: $$Excel-Macros$$ how to get month Occurrence in no.

If the word "April" or *another month name *is type correctly in cell A1 try this formula in B1 =TEXT(DATEVALUE("1 "&A1&" 2010"),"M") On Tue, Dec 28, 2010 at 1:56 PM, Rohan Young wrote: > Hi experts, > > is there any formula, if i only type in cell April and the other cell > return the value

Re: $$Excel-Macros$$ Need to be able to find duplicates before a space

select the range of your Numbers for example: B2:B200 you can apply a conditional formatting on that range the condition FORMULA is =COUNTIF($B$2:$B$200;B2)>1 On Thu, Dec 23, 2010 at 2:04 AM, Superkermit wrote: > I have a excel spreadsheet that has model numbers on the start of a > column a

Re: $$Excel-Macros$$ How to attach file

Sorry for OOT.. Compose and Send your mail from your pc' GMail, not from the group web page. cmiiw On 11/19/10, Chandru wrote: > Hi, > How to attach file in this group > Thanks > > Chandra Shekar -- -- Some importa

Re: $$Excel-Macros$$ time running

Anda belum searching di old posting milis XL-mania ataupun belajar-excel ? On 11/18/10, ratu elissa wrote: > hot to create time update per second in vba > > -- > -- > Some important links for excel users: > 1. Foll

Re: $$Excel-Macros$$ 2 Queirs, plz give tips

1 go to http://www.exceltoexe.com/ 2 instanciate a ComboBox (an ActiveX Control) on sheet righ-click > Properties set the property named ListFillRange = Your Range address for example : A2:A1001 On Thu, Oct 21, 2010 at 11:19 AM, SAJID MEMON wrote: > Dear Exper

Re: $$Excel-Macros$$ Seemingly simple thing.....

ActiveWorkbook.PrecisionAsDisplayed = True tmp() = Range("A1:A20") but, PrecisionAsDisplayed = True will change your data in your sheets On Fri, Oct 15, 2010 at 1:49 PM, The Frog wrote: > Hi everyone, > > First time posting to this group. Glad to have found it. I have a > question regarding ca

Re: $$Excel-Macros$$ Define a Range based on a Range object

Set xRange = Range("C1:D10") xRow = 5 Set yRange = xRange.Offset(xRow-1, 0).Resize(xRow+1, xRange.Columns.Count) CMIIW On Fri, Oct 15, 2010 at 4:06 AM, TerryP wrote: > > Given a Range object (e.g: set xRange = Range("C1:D10") ) > And given xRow = 5 , which stands for Row 5 (absolute Row inde

Re: $$Excel-Macros$$ Time in Decimal format

just multiply by 24 time 3:48 in cell A1 =A1*24 resulting: 3.80 that is equal to:3 + 48/60 not 4.48 CMIIW On Fri, Oct 15, 2010 at 10:55 AM, Vijay Kr. Aggarwal < vjaggarwal2...@gmail.com> wrote: > Hi Friends, > Please let me know that how can I write time in decimal format. > Time :

Re: $$Excel-Macros$$ Macro to run on specific day.

only work on day 5 to 10 of the month sub blablabla() if day(date) >= 5 and day(date) <=10 then * *your full macro* * end if end sub On Wed, Oct 13, 2010 at 12:26 PM, C.G.Kumar wrote: > Dear All, > I want my macro to be executed only for specific day in a month based on system date and

Re: $$Excel-Macros$$ significance of sign in formula

Your formula is an ARRAY FORMULA To enter the Array Formula you have to press *[Ctrl] , [Shift] + [Enter] button *(not only just [Enter] learn more : http://www.cpearson.com/excel/ArrayFormulas.aspx On Tue, Oct 12, 2010 at 1:59 PM, shantanu chouhan < chouhanshanta...@gmail.com> wrote: > Dear a

Re: $$Excel-Macros$$ Counting Unique Items

if your list of data (some data = duplicated data) are stored in C3:C26 then *The Count of Unique Values *is *=SUM(1/(COUNTIF(C3:C26,C3:C26)))* best regards siti On Tue, Oct 12, 2010 at 7:13 AM, MikeMikeMike wrote: > > I am having a problem with a forumla I am hoping someone out there can >

Re: $$Excel-Macros$$

Dear shrinivas, you can put this formula *=B4+BeforeThisSheet("C4")* and copy to another sheet (except sheet1 / *most left* tab sheet in workbook) *BeforeThisSheet* is an UDF ( = User defined function) that we can create with VBA Function BeforeThisSheet(RangeTxt As String)

Re: $$Excel-Macros$$ MS Excel help needed for newbie

or, another formula in A2 *=MATCH(TRUE,A1={"A","B","C","D","E"},0)*20-10* * * *** * On Thu, Oct 7, 2010 at 4:23 PM, siti Vi wrote: > *formula in cell A2 * > =CHOOSE(MATCH(TRUE,A1={"A","B","C","D",&q

Re: $$Excel-Macros$$ MS Excel help needed for newbie

*formula in cell A2 * =CHOOSE(MATCH(TRUE,A1={"A","B","C","D","E"},0),10,30,50,70,90) *formula in cell A3* =A2+10 On Thu, Oct 7, 2010 at 1:30 PM, Dean Brown wrote: > I have several questions so if it's ok with you I'll ask then one at a > time (that'll give me time to digest any answers). > > Ok,

Re: $$Excel-Macros$$ save as cell A1 to to a specific drive - BUT excel then closes - why ?

Dim myPath As String, ThisFile As String myPath = "H:\Temp\" ThisFile = myPath & Range("A1").Value Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=ThisFile Application.DisplayAlerts = True On Sat, Oct 2, 2010 at 6:34 PM, Johnnyboy5 wrote: > Hi > When I use th

Re: $$Excel-Macros$$ Please Help

please check the attached workbook On Mon, Sep 27, 2010 at 11:02 PM, hemant shah wrote: > Hi Team, > Can you please help on the attached file. > I have explained my query in the attached sheet. > Regards, > Hemant Shah --

Re: $$Excel-Macros$$ Change Data in transpose form

try this code Sub dosomething() '* siti Vi / jakarta, sept 24, 2010* Dim refTbl As Range Dim DesTbl As Range Dim r As Long, i As Long, c As Long Set refTbl = Cells(1, 1).CurrentRegion Set DesTbl = refTbl(1, 1).Offset(0, refTbl.Columns.Count + 3) For r =

Re: $$Excel-Macros$$ Cubic spline interpolation macro in VBA

http://www.ozgrid.com/Excel/excel-interpolate-cubic-curve-fit.htm http://www.brothersoft.com/excel-cubic-spline-16499.html http://www.xlxtrfun.com/XlXtrFun/XlXtrFun.htm On Sun, Sep 19, 2010 at 2:04 AM, Pratik wrote: > Hi, > Can anybody help me find VBA macro to perform cubic spline > interpolat

Re: $$Excel-Macros$$ Show Values in List

put this formula into SourceBox in the Data Validation List =OFFSET($B$1,MATCH($E$2,$A$2:$A$17,0),0,COUNTIF($A$2:$A$17,$E$2),1) [image: Formula for List Source.PNG] please check the attachaed workbook best regards, siti Vi On Sun, Sep 19, 2010 at 2:12 PM, Deepak Rawat wrote: > Dear all

Re: $$Excel-Macros$$ Hi

you have to send your posting from your email-client, not from the group web. On Thu, Sep 16, 2010 at 4:03 PM, dinoabeer wrote: > > Can somebody help. I m a newbie here. how do I upload I file when I > post something> -- -

Re: $$Excel-Macros$$ Auto Insert into Cell

put this code into Sheet1's Module Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count = 1 Then If Target.Value <> "" Then If Target.Column = 3 And Target.Row > 1 Then Target(1, -1) = Format(Now, "dd-mmm- hh:mm:ss") Target(1, 0) = Application.UserName End If End If End I

Re: $$Excel-Macros$$ Column Data in Rows Table

*(1) : Macro VBA-Excel Solution* Private Sub CommandButton1_Click() Dim SrceTbl As Range, DestTbl As Range Dim r As Long, nr As Long, c As Integer Set SrceTbl = Sheets("Sheet1").Cells(1, 1).CurrentRegion Set DestTbl = Sheets("Sheet2").Cells(2, 2) For r = 2 To SrceTbl.Rows.Count

Re: $$Excel-Macros$$ i want a coma

coma will be added only if you enter a sting in B column in sheet1 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count = 1 Then If Target.Column = 2 Then If WorksheetFunction.IsText(Target.Value) Then Application.EnableEvents = False Target.Value = Target.Value + "," Applicat

Re: $$Excel-Macros$$ Date series

or if we want result as a number (not a date type) Array Formula =DAY(TRANSPOSE(ROW(INDIRECT(B3&":"&C3 On Mon, Sep 6, 2010 at 2:47 PM, Kal xcel wrote: > Dear experts, > > I am sending a file where I need to show a series of dates after giving > start date & end date. > > File is attached .

Re: $$Excel-Macros$$ Date series

Array Formula =TRANSPOSE(ROW(INDIRECT(B3&":"&C3))) On Mon, Sep 6, 2010 at 2:47 PM, Kal xcel wrote: > Dear experts, > > I am sending a file where I need to show a series of dates after giving > start date & end date. > > File is attached . > > Thanks in advance. > > Kalyan > > > -- ---

Re: $$Excel-Macros$$ Insert work sheet and rename when insert.

Sub CreateMoreSheets() '-- by siti Vi / Jakarta, Sept 4, 2010 Dim shtArr Dim i As Integer shtArr = InputBox("Type the Sheet's Name, separate by comma (,)") shtArr = Split(shtArr, ",") For i = 0 To UBound(shtArr) Sheets.Add after:=Sheets(Sheets

Re: $$Excel-Macros$$ Re: I love excel because.......

I love Excel because "She" is very funny -- -- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linked

Re: $$Excel-Macros$$ sumif kinda formula needed

ves a happy and useful life, but will not speak of it in polite conversation." On Fri, Sep 3, 2010 at 6:00 PM, shrinivas shevde wrote: > Dear siti vi/Group Member > > Plesae let me know What is the function DATEDIF ? > Is this function available in Excel? > If not How u

Re: $$Excel-Macros$$ Question about excel report

try this formula =MID(CELL("address",Sheet1!A1),FIND("]",CELL("address",Sheet1!A1))+1,99)&" = "&Sheet1!A1 On Fri, Sep 3, 2010 at 6:08 AM, jjsmd wrote: > > Hi: >  I am new to excel and I was wondering hiw I would do the following. >  I have an excel worksheet with names of people in a sheet goin

Re: $$Excel-Macros$$ sumif kinda formula needed

Formula for AGE and UDF for SUMMARY see attachments On Thu, Sep 2, 2010 at 7:23 PM, Phillip Swanepoel wrote: > Hi > > This posting relate to a earlier one regarding birthdays on a excel > sheet. > > in column b i got the /mm/dd > column c i got the person name and last name > column d i got

Re: $$Excel-Macros$$ extract only product name

Put *ARRAY FORMULA* =LEFT(A2,MAX((MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)=" ")*(ROW(INDIRECT("1:"&LEN(A2)-1) into cell B2; copy B2 and paste to B3:Bn On Wed, Sep 1, 2010 at 5:11 PM, Kal xcel wrote: > Dear Experts, > I need a help. I have a list of alpha-numeric string, (Like : Skin Fruits Inst

Re: $$Excel-Macros$$ fonts in combobox keeps becoming smaller as it is clicked

You can set the Font Size of your Combobox (activeX control) object For example: ComboBox1.Font.Size = 12 On Tue, Aug 31, 2010 at 8:27 AM, Meimei wrote: > I am writing a simple vba program. I used a few comboboxes in the > program. But I found that as I click on the combobox, the font size in

Re: $$Excel-Macros$$ User defined function for text formatting.

Unfortunately a FUNCTION can not DO a method Function can only returns a Value CMIIW To format a range you need a SUB Procedure not Function Procedure best regards, siti On Tue, Aug 31, 2010 at 2:32 AM, Silviu wrote: > Hello > I'm trying to find out how to build some user defined functions for

Re: $$Excel-Macros$$ mirror worksheets

Hi, You can work in a GROUP of SHEETS f.x. Multi-Select: Sheet1 and Sheet2 then you need to work in Sheet1 only On Mon, Aug 30, 2010 at 3:31 PM, Steen wrote: > > HI > I would like to mirror a worksheet to another worksheet only certern > cells and if you in the main sheet inserts a new rows this

$$Excel-Macros$$ Re: creat box and copy information into it

If you mean with TextBox please see workbook at http://www.box.net/shared/nh5zl1vvhh Regards, siti On 25 Agu, 17:39, Steen wrote: > Hi > i'll try to tell whta i'm trying to at what my problem is hope that > you  understand what i'm trying to do. > i have made Work break sturcture, which describ

$$Excel-Macros$$ Re: Hi guys I need your help again.

Hi, why not using Keyboar-ShortCut: Ctrl + PgUp and Ctrl+PgDown Regards, siti On 23 Agu, 21:21, shariqcoo...@gmail.com wrote: > Hi, > Can any one tell me how we can link the macro code to hyperlink. > I want to navigate the sheet by click the next or previous by using > Activesheet.next.sel

Re: $$Excel-Macros$$ Insert Blank Rows after detecting a specific text string

out it all makes sense to me, > except "UCase" -- what is it? It's not a function... and when I run this > code , nothing happens -- can you explain a little more? Sorry, but I am a > novice... > > On Wed, May 12, 2010 at 6:55 PM, siti Vi wrote: > > Sub Bla_Bl

$$Excel-Macros$$ Delete rows and concatenate values.

formula : =CONCATIF($A$2:$A$18,D2,$B$2:$B$65) vba code of ConcatIf UDF : Function ConcatIf(Rang1 As Range, Crite As Range, _ Optional Rang2 As Range = Nothing, _ Optional Dlmtr As String = "; ") As String '-------

Re: $$Excel-Macros$$ Insert Blank Rows after detecting a specific text string

Sub Bla_Bla_Bla() Dim MyRng As Range, n As Long Set MyRng = ActiveSheet.UsedRange For n = MyRng.Rows.Count To 1 Step -1 If UCase(Left(Trim(MyRng(n, 1)), 5)) = "TOTAL" _ Then MyRng(n + 1, 1).EntireRow.Insert Next End Sub NOTE: to insert a row you have to say the range o

Re: $$Excel-Macros$$ Excel help : Remove Page Breaks Using VBA code

I think, removing VPageBreaks and HPageBreaks can be done by setting FitToPage /Wide/Tall properties to : 1 Sub ClearPgBreasks() With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With End Sub On May 12, 8:33 pm, Sundarvelan N wrote: >

Re: $$Excel-Macros$$ sum/count the number of times a name has occured

Assuming your list of names are in A2:A6 =COUNTIF($A42:$A$6,"Bill") returns the number of "Bill" in your above mentioned range. On May 12, 3:00 am, nyberg75 wrote: > Hi > How can i sum/count the number of times a name has occured > Example: > John > Bill > Gordon > Bill > Bill > Sara >

Re: $$Excel-Macros$$ Need a code or macro urgent

A formula cannot performs an action / method like "INSERT ROW" It only returns DATA(s). So, you need a macro '-- Sub InsertRowBelowYes() ' by siti Vi / may 12, 2010 Dim MyRng As Range, r As Long, c As Integer Set MyRng = ActiveSheet.UsedRange For r = M

Re: $$Excel-Macros$$ prima and non-prima

there is a little correction in my code '--- Dim ArrDevisors() Sub BlaBlaBlaBla() ' siti Vi / bluewater, indonesia / 7 May 2010 Dim MyCell As Range Dim isPrima As String, n As Long Set MyCell = Selection isPrima = IsPrimeNumber(MyCell.Value) MyCell(1, 4)

Re: $$Excel-Macros$$ prima and non-prima

Dim ArrDevisors() Sub BlaBlaBlaBla() ' siti Vi / bluewater, indonesia / 7 May 2010 Dim MyCell As Range Dim isPrima As String, n As Long Set MyCell = Selection isPrima = IsPrimeNumber(MyCell.Value) MyCell(1, 4) = "Result:" MyCell(1, 5) = isPrima If isPri

Re: $$Excel-Macros$$ VBA code to delete all dates before last week

Assuming that : * YOUR LIST OF DATE are in a Range * "to delete" means to clear the content of a cell containing Date data Sub DoSomething() Dim MyRange as Range, Xel As Range Dim LastWeekWednesday As Date '--Please edit the code for your Range Set MyRange = Sheets("Bla").Range("A2:A65

Re: $$Excel-Macros$$ Excel Macro help : How to remove Page Break

try: Sheets("MySheet").UsedRange.PageBreak = xlPageBreakNone -- On May 4, 6:09 pm, Sundarvelan N wrote: > Hi Friends, > Please help me to solve the final step of my project. > I need to remove the page break lines to the end of the column upto which > the data is available. > Thanks

Re: $$Excel-Macros$$ Excel Groups : date from last Sunday To Saturday

updating my previous code Sub ListOfWorkWeekDate() Dim dtLastSunday As Date Dim i As Byte dtLastSunday = Date - Weekday(Date) + 1 For i = 1 To 6 ActiveCell(i, 1).NumberFormat = ", dd mmm " ActiveCell(i, 1) = dtLastSunday + i Next End Sub On Apr 23, 3:38 pm, S

Re: $$Excel-Macros$$ Excel Groups : date from last Sunday To Saturday

The below procedure will create a list of current Work-Week-Date in one-ColumnRange (6 cells) starting at the active cell Sub ListOfWorkWeekDate() Dim dtLastSunday As Date Dim i As Byte dtLastSunday = Date - Weekday(Date) + 1 For i = 1 To 6 ActiveCell(i, 1) = dtLastSunday + i

Re: $$Excel-Macros$$ Excel-Macro : Help

Subtotal ?? Sub SortAndSubTotalOnColumn4() Cells(1).CurrentRegion.Select Selection.Sort _ Key1:=Range("A2"), Order1:=xlAscending, _ Key2:=Range("B2"), Order2:=xlAscending, _ Header:=xlYes, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, _ DataOpt

$$Excel-Macros$$ Re: Permutations and combinations

may be you need a program like this INPUT: 123 OUTPUT: 123, 213, 312, 132, 231, 321 Private Sub ArrangeAndWrite(ByVal D, i As Byte) '-- ' siti Vi / jurangmangu / 16 mar 2008 ' this is a recu

$$Excel-Macros$$ Re: Datewise,townwise data??

LEFT(B5,8),B5))) formula in E column =IF(B5="","",DATEVALUE(IF(ISNUMBER(FIND("to",B5)),RIGHT(B5,8),B5))) formula in I column (INV PRICE) =SUMPRODUCT(($D$5:$D$121>=G2)*($D$5:$D$121<=G2)*($A$5:$A$121=H2)*($C $5:$C$121)) best regards, siti Vi On Apr 10, 11:30 

$$Excel-Macros$$ Re: how to query if a given sheet exists?

dim sht as worksheet for sht in activeworkbook.worksheets if lcase(sht.name) = "budget 2010" then exit sub ' (exit function) if the procedure is a function procedure) end if next On Apr 11, 12:51 am, vsoler wrote: > Hello, > > how, in a module, can I possibly know if a given sheet,

$$Excel-Macros$$ Re: Named Ranges

Dear Grup, '---naming a range, example Dim NotCtr1 As Range Dim IsSameRange as Boolean Set NotCtr1 = Range("A1:C2") Range("A1:C2").Name = "Ctr1" '---refering a named range, example Range("Ctr1").interior.ColorIndex = 16 IsSameRange = (NotCtr1 = Range("Ctr1")) MsgBox IsSameRange On Feb 25,