Worksheet Change Event :: Change Color As A Result Of Calculation
an event macro to change the font colour of a cell whose value changes as a result of a calculation.
View Complete Thread with Replies
Sponsored Links:
Related Forum Messages:
Worksheet Calculate Event To Automatically Change The Color Of A Cell
I am trying to use the worksheet calculate event to automatically change the color of a cell only when that particular cell changes. In E2 of the worksheet is a formula use to determine rating based on the result of 2 other cells. The rating is classified as follows Low Moderate High Maximum I would like to generate a different set of color to the cell and fonts for each of the rating. For example, "Cyan" to the cell E1 and E2 with Black font if the result is "Low" "Plum" to the cell E1 and E2 with "Black font if the result is "Moderate" "Blue" to the cell E1 and E2 with "White" font if the result is "High" and "Red" to the cell E1 and E2 with "White" font if the result is "Maximum"
View Replies!
View Related
MouseMove Event: Button Will Change Color
I am trying to do is if a user hovers the mouse over a commandbutton, the button will change color and the label will tell the user what that button does. This works almost perfectly except that if the user goes directly from one commandbutton to the one directly next to it, they the previous commandbutton does not change back to it's original color. It will only work if the use first move away from the first commandbutton and then hovers over the second. Private Sub CommandButton20_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Me.CommandButton20.BackColor = RGB(149, 28, 2) 'orange Me.Label1.Caption = "No changes can be made." End Sub Private Sub CommandButton18_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Me.CommandButton18.BackColor = RGB(149, 28, 2) 'orange.................
View Replies!
View Related
Change Range Format & Color Based On Result Of Drop-Down Choice
I'm using Excel 2007. I have a field with a "YES"/"NO" drop-down box. There are three fields below which have some default formatting (thick purple dot-dot-dash borders). When the drop-down field is "YES", those three fields should change borders to a single thin black bottom border line. OK... so that's the setup. And I should note here that it does in fact format properly. However, the problem I'm having is that the screen does not update / repaint with the new formatting. The thick purple dot-dot-dash borders remain, for the most part. If I page down, then page back up, the new formatting appears just fine. When I switch from "YES" to "NO", again, the formatting changes, but the screen does not update/repaint so the only way to see the new formatting is to again... page up and then page down again. I'm wondering if anyone knows a way to force the screen to repaint/update so that my users will see the new formatting without having to page up/down.
View Replies!
View Related
VBA Worksheet Change Event
trying to get a worksheet change event to work. Basically the code below calls the time_start procedure when cell J16 downwards is selected. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 15 And Target.Column = 10 Then Call time_start Else End If End Sub However, I am lost from here on....Let me try and explain what it is I am trying to do. This seems so simple if you know how. Each time that the word "Completed" is entered in to a cell from J16 onwards, the cell two columns to the right on the same row is selected and the current date is entered. If the word "Completed" is deleted, I want the date on that row to be deleted. I would also like the choices "Completed" and a blank cell to be given in a validation list via a dropdown if possible to avoid occurances of "Complete" etc and mis-spellings but I understand that a bug may stop me from using this functionality. I am running Excel 2002 on a Windows XP Professional OS.
View Replies!
View Related
Worksheet Change Event Not Firing
I have a spreadsheet with a table of values in range E5 to T158. A macro populates the table by looking up values on other sheets in the book. If the macro finds a value in the lookup for Row 7 of any column (ie E7,F7...T7) it populates the rest of the column with that value (E7 value gets pasted to E8:E158) THEN it protects the cells it pasted (E8:E158). If the macro does NOT find a value for row 7, it simply skips it, leaving it blank, and continues to row 8 until it reaches row 158 of each column E to T. I want to give the user flexibility with these values. So if the user either deletes E7 or changes the value of the contents in E7, I want to unprotect the cells of rows 8 to 158 for that column. I have created a Private Sub Worksheet_Change(ByVal Target As Range) in the private module for that sheet below. I thought it was working but it isn't doing anything when I change or delete the value in Cell E7 for example. Please help! Private Sub Worksheet_Change(ByVal Target As Range) 'Do nothing if more than one cell is changed If Target.Cells.count > 1 Then Exit Sub 'Or IsEmpty(Target)
View Replies!
View Related
Worksheet Cell Change Event
I have looked at the threads concerning cell change events but cannot find a solution to my situation. I have a worksheet with a cell using a validation list. I wish to exicute a procedure whenever the dropdown list is changed in that one cell. Everything I have seen in the Worksheet event threads is evaluating the contents of a cell and I am attempting to exicute if the cell changes.
View Replies!
View Related
Worksheet Change Event :: In A Column For A Reconcile Worksheet
looking to only allow a check ("x") in a column for a reconcile - type worksheet. Am I close? Private Sub Worksheet_Change(ByVal Target As Range) 'Data protection. Only allow "x" in the "cleared" column. If anything else is entered, a message box informs the user 'and the cell contents are cleared. Dim val As Variant Dim msg As String If ActiveCell.Value "x" Then msg = "You can only enter an X in the cleared column." ActiveCell.ClearContents End If End Sub
View Replies!
View Related
Macro Needed For Worksheet Change Event
In Col D of my spreadsheet, I have a list of security codes, in this list there is a security code "all", i need a macro that will add 1 to the code, so it reads "all1", now i need the macro to run as soon as new data is pasted to sheet "Lending", the ranges in Col D do change on a daily basis therefore cell reference for security codes is not fixed. Can this be achieved? ............
View Replies!
View Related
Programmatically Inserting A Worksheet Change Event
I'm trying to insert a worksheet change event using VBA. I have this sample code from here - http://www.cpearson.com/Excel/vbe.aspx Sub CreateEventProcedure() Dim VBProj As VBIDE.VBProject Dim VBComp As VBIDE.VBComponent Dim CodeMod As VBIDE.CodeModule Dim LineNum As Long Const DQUOTE = """" ' one " character Set VBProj = ActiveWorkbook.VBProject Set VBComp = VBProj.VBComponents("ThisWorkbook") Set CodeMod = VBComp.CodeModule...................
View Replies!
View Related
Worksheet Selection Change Event Not Triggered
I am using Excel 2007, and I have a macro (that is working) that I would like to run whenever there has been a new selection in a dropdown list on my worksheet. I have done this many times before in other workbooks, and I have always used: Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub To my knowledge this should trigger the macro when the dropdown selection changes. However, this time it is not working. The macro runs fine manually, but it does not run when the dropdown selection changes.
View Replies!
View Related
Worksheet Change Event Intersect Error 91
This is my Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("D6:D6000")) Is Nothing Or Intersect(Target, Range("D6:D6000")) = "" Then If Intersect(Target, Range("F6:F6000")) Is Nothing Or Intersect(Target, Range("F6:F3000")) = "" Then If Intersect(Target, Range("I6:I6000")) Is Nothing Or Intersect(Target, Range("I6:I6000")) = "" Then Exit Sub Else Do Something...... End If End If End If End Sub when excution comes to this line If Intersect(Target, Range("D6:D6000")) Is Nothing Or Intersect(Target, Range("D6:D6000")) = "" Then a run time error (91) appears, it tells object variable or with block variable not set.
View Replies!
View Related
Restrict Worksheet Change Event To Last 3 Worksheets
I am trying to make a macro run automatically based on info entered in a cell. The problem is I need this code on at least three separate sheets in the work book. It doesent work when I try to use the same basic code. The code I am using is below. Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim lLastRow As Long Dim rgArea As Range, rgCell As Range Dim COL_B As Integer COL_B = 2 Dim COL_X As Integer COL_X = 24 Dim ROW_FIRST As Long ROW_FIRST = 5 ' Find the last row of date in the "Approved" worksheet lLastRow = FindLastRow(SZ_WS_APPROVED, COL_B) ' Set a reference to the changed cells in column X Set Target = Intersect(Target, Range(Cells(ROW_FIRST, COL_X), Cells(lLastRow, COL_X))).........................
View Replies!
View Related
Worksheet Change Event Coding Conflicting
Private Sub Worksheet_Change(ByVal Target As Excel. Range) Dim S As String, X As Variant, n As Long If Target.Column <> 3 Or Target.Cells.Count <> 1 Then Exit Sub If IsEmpty(Target) Then Exit Sub S = Target.Text On Error Goto Reset n = Application.Substitute(S, "-", "") On Error Goto Reset Application.EnableEvents = False X = Application.Match(n, Workbooks("Database.xls"). Sheets("Products").Range("B1:B14000"), 0) If IsNumeric(X) Then Target.Offset(0, -1) = Workbooks("Database.xls").Sheets("Products").Cells(X, 1).Value Else............................ But each time i add it in, it ether's turns off the second statement and second works or vice versa. How can make both codes work at the same time without conflicting each other.
View Replies!
View Related
Restrict Worksheet Change Event To Specified Range
I have this code working fine. It applies conditional formating to two rows ((K3:K65) and (J3:J65)) and checks when a value changes in row B to reaplpy the formatting. I'd like to had add more columns to it. It would have apply the same conditonal formatting on rows ((O3:O65) and (P3:P65)) but when a value changes in row (N3:N65) So basically, I want to keep the first working part of the code and have it to check at more rows with a different reference for the conditionnal formatting. Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range Dim rngJ As Range If Target.Count > 1 Then Exit Sub Set rng = Union(Range("B3:B65"), Range("J3:J65")) If Intersect(Target, rng) Is Nothing Then Exit Sub Set rngJ = Range("K" & Target.Row) Select Case rngJ.Value Case "" rngJ.Interior.ColorIndex = xlNone rngJ.Offset(0, -1).Interior.ColorIndex = xlNone Case Is >= 20.............................
View Replies!
View Related
Worksheet Change Event :: Find Email Addresses
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Count > 1 Then Exit Sub If Target.Column = 1 Then If Target = "" Then Cells(Target.Row, 3).ClearContents Else: If Target.Value = "test" Then Cells(Target.Row, 3) = my.Email.co.uk End If End If Application.EnableEvents = True End Sub Basically, my target column is column A, i have 200 employee numbers, now we have to find the email addresses manually which is useless so i want to spend the time writing some code like: If the target column is 123456 then the offset column D is email address If the target column is 654321 then the offset column D value is email address. I have 200 statements like this ill need to add unless anyone has any suggestions, perhaps select case structure?? I dont really know where to start an so i await your replies.
View Replies!
View Related
Worksheet Change Event To Pop Up A Message When Typed
I have the following code that should pop up a message when column E is left blank when "other" is typed into column D. But I cannot get it to work. Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, LastRow As Range Dim x As Integer If Target.Count > 1 Then Exit Sub Set rng = Range("F:F") If Intersect(Target, rng) Is Nothing Then Exit Sub If Target = "" Then For x = 1 To 5000 If Cells(x, 4).Value = "Other" And Cells(x, 5).Value = "" Then Answer = MsgBox("If other, please state", vbOKCancel, "CONFIRMATION") End If Next x End If End Sub
View Replies!
View Related
Worksheet Change Event Not Responding To Cell Deletion
This is part of a macro in a worksheet_change event. When a cell in column J gets deleted by a user, the corresponding cell in column K should also clear. But it's not responding to the delete. It DOES clear when the other 2 criteria are met (.cells(1,10) = 0 and .cells(i,5) <> "Annuity"). The worksheet_change event should pick up on the cell deletion, but it's not. And column J is already a trigger for the macro to run, so I'm not sure what's going on. Either the trigger is still wrong, the isempty(.cells(i,10)) is not correct syntax, or this event just doesn't respond to cell deletion.
View Replies!
View Related
Worksheet Change Event :: Trying To Set The IntRMACol Variable
This is the code on the Worsheet Change event. Private Sub Worksheet_Change(ByVal Target As Range) 'Define the RMAs range and count the RMA ships. Do the rest of the math based on this calculation. Dim intRMACol As Integer, EndRow As Integer, intRMAShips As Integer, LastCol As Integer Dim rngRMAs As Range, rngHome As Range, sht As Worksheet Set sht = ActiveWorkbook.ActiveSheet Set rngHome = Cells(1, 1) rngHome.Activate EndRow = Range("A" & Rows.Count).End(xlUp).Row intRMACol = Cells.Find(What:="RMA#", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column Set rngRMAs = rngHome.Offset(1, intRMACol - 1).Resize(EndRow, 1) rngRMAs.Name = "RMAs" rngHome.Offset(1, LastCol + 1).Formula = "=COUNTA(RMAs)" intRMAShips = rngHome.Offset(1, LastCol + 1).Value rngHome.Offset(1, LastCol).Formula = "=SUM((" & EndRow & " - 1) - " & intRMAShips & ")" rngHome.Offset(1, LastCol + 2).FormulaR1C1 = "=SUM(RC[-2] : RC[-1])" End Sub I keep getting stuck when trying to set the intRMACol variable. I have used the code all over the place, but only in Modules, never on a worksheet event. EndRow, the variable right above, sets correctly so I don't get it. Also, do I have to define the Target variable? Am I going about this the right way? I basically want three formulas to calculate when any change is made on the worksheet.
View Replies!
View Related
Target.Cells Is Counting In Worksheet Change Event
Below is an example from the ozgrid forum illustrating the worksheet change event. Not sure of the meaning of 'Do nothing if more than one cell is changed" on the 2nd row of the code. Does it means that if a value is entered in other cells, the code will not fire? Private Sub Worksheet_Change(ByVal Target As Range) 'Do nothing if more than one cell is changed or content deleted If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub If Target.Address = "$A$1" Then 'Ensure target is a number before multiplying by 2 If IsNumeric(Target) Then 'Stop any possible runtime errors and halting code On Error Resume Next 'Turn off ALL events so the Target * 2 does not _ put the code into a loop. Application.EnableEvents = False Target = Target * 2 'Turn events back on Application.EnableEvents = True 'Allow run time errors again On Error Goto 0 End If End If End Sub
View Replies!
View Related
Worksheet Change Event To Track Changes On Separate Sheet
I have the following code what it does, is when a user changes a cell it copies the row to another sheet along with the userstatus. Problem is if the user pastes more than one column of data into the sheet it copies the row more than once depending on the amount of columns the user pasted . I only want to copy the row once. Private Sub Worksheet_Change(ByVal Target As Range) Dim SelRng As Range If Not Intersect(Target, Range("A3:K30")) Is Nothing Then Set SelRng = Target Application. ScreenUpdating = False For Each cell In SelRng Range(Range("A" & (cell.Row)), Cells(cell.Row, Columns.Count).End(xlToLeft).Offset(0, -5)).Copy Sheets("Tracking").Select ActiveSheet.Cells(Rows.Count, 31).End(xlUp).Offset(1, -13).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveCell.Offset(0, 13).Value = ActiveWorkbook.UserStatus Sheets("Engine 1").Select Next cell Application.CutCopyMode = False Application.ScreenUpdating = True End If End Sub
View Replies!
View Related
Restrict Worksheet Change Event: Non-Contiguous Range
is it possible to have a userform activated as a result of a Worksheet_Change event on more than 2 cells. Currently I have the code below which will activate userforms if either a cell in Column G or a cell in Column T is changed. Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect(Target, Range("G:G", "T:T")) Is Nothing Then Exit Sub If Intersect(Target, Range("G:G", "T:T")) = "" Then Exit Sub If Not Intersect(Target, Range("G:G")) Is Nothing Then GlngRow = Target.Row Call Module3.ShowList1 End If If Not Intersect(Target, Range("T:T")) Is Nothing Then GlngRow = Target.Row Call Module3.showlist4 End If End Sub What i need to do is activate another userform if a cell in Column AC is changed. I tried this code but got an error "Compile Error: Wrong number of arguments or invalid property assignment", which leads me to believe I can't add any more cells to the argument and it highlights the word Range in this line - If Intersect(Target, Range("G:G", "T:T", "AC:AC")) Is Nothing Then Exit Sub..........
View Replies!
View Related
Conditional Formatting: VBA & Worksheet Change Event
I am trying to do a conditional format of 0 to 2 is red, 3 to 4 is yellow and 5 is green. However I also need to have a cell that is blank to remain white and this is the part I am having problems with. I found the following code since I cannot use the standard conditional formating in excel since it needs 4 conditions. Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer If Not Intersect(Target, Range("H3:H12")) Is Nothing Then Select Case Target Case 0 To 2 icolor = 3 Case 3 To 4 icolor = 6 Case 5
View Replies!
View Related
Restrict Worksheet Change Event To Multiple Non Contiguous Ranges
Can you have more than 1 worksheet change event on the same worksheet, if so, how do you name it to prevent the ambiguous name error. What code would I need to select a text value in colums e11:e15 based on the cell value in cell named STATE and place the selected value in cell e16. I have, thanks to this resource, one worksheet change event that selects a numeric value from any column E3,F3:F7 and places that value in cell C4. but the same code doesn't work for the new worksheet change event.
View Replies!
View Related
Prevent Worksheet Change Event Causing Chain Reaction
I'd like the users to be able to change some detail in a couple of places and have it updated throughout the spreadsheet. Basically, the user can change the line name in any of the input sheets and the code changes the sheet name, and searches for the reference to the old name in the overview sheet and changes it accordingly. The problem I have at the moment is that I would also like the user to be able to change the line name from the overview sheet too... I am having trouble thinking how to have similar code in the "Overview" sheets Worksheet_Change event without getting into a big constant loop... e.g. if the line name is changed via code on the individual input sheets won't that then trigger the first code, which will trigger the second etc. etc. I have the following code in the ThisWorkbook section: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim sName As String Dim sOldName As String Application. ScreenUpdating = False sOldName = ActiveSheet.Name If Target.Address <> "$B$1" Then Exit Sub sName = ActiveSheet.Range("B1") On Error Goto ErrorHandler ActiveSheet.Name = sName On Error Goto 0 Sheet8.Select 'this is the overview sheet Cells. Find(What:=sOldName, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate........................
View Replies!
View Related
Change Event To Detect Cell Change
I have a simple bit of code that fires some code when it detects a change in cell $P$5 but it doesnt work and I cannot understand why - can anyone assist with this one? I am very green but keen: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$p$5" Then Range("D9:D81"). AutoFilter Field:=1, Criteria1:="<>" End If End Sub
View Replies!
View Related
Worksheet Change To Trigger On A Highlight Color
I am sure that a worksheet change would be the best way to go for this, but I am unsure how to test for this. I am looking to prevent users from using a select set of colors for highlighting. If the user tries to highlight using one of these invalid colors, I would like to flag a message telling the user that this color is reserved and highlight the selection to the previous color. The previous color may be a tricky part as I do not know if this can be done.
View Replies!
View Related
Change The Cell Color On Drop Down Change
I have a drop down sub pasted to worksheet: Private Sub ComboBox1_Change() ComboBox1.List = Array(100, 200, 300, 400) If Range("I11").Value < Range("N11").Value Then If Sheets("Profile").Range("K18").Value < ComboBox1.Value Then Range("I11").Interior.ColorIndex = 2 Else Range("I11").Interior.ColorIndex = 3 End If End If End Sub I want it to change the cell color on drop down change. How can I modify things to have the change in drop down selection?
View Replies!
View Related
Sub Worksheet Change Range Color Error Due To Protected Sheet
I have this code that works fine until I password the sheet and the range (b9:d65536) is protected. When I protect the sheet and make a change I get a debug error. What would I need to add/change to handle protected cells on a protected sheet? VB: AutoLinked keywords will cause extra spaces before keywords. Extra spacing is NOT transferred when copy/pasting, but IS if the keyword uses "quotes" ....
View Replies!
View Related
Worksheet 'Change' Event: Show Which Rows Of Data Have Been Changed By Incrementing A Revision Attribute
I want to show which rows of data have been changed by incrementing a revision attribute. For example, if a user changes the contents of a cell anywhere between rows 2 and 13 and col 1 and 9 then the revision attribute in col 10 would increment from 1 to 2 (for the affected row). If another change affects the same row then the rev attribute would increment to 3, and so forth. I don't care which cell was changed only that something on that row was touched. I thought the CHANGE event was a dead ringer for triggering some VBA code to control this but, since part of the change event code writes the revision value, this triggers another CHANGE event causing an endless loop until something (??) kicks in and stops it after 220 iterations. Is there a way to inhibit the change event just prior to updating the cell containing the version attribute? Rather than post the code here I have submitted the workbook that includes the whole setup and code. I should also mention I looked at all the other worksheet events and I do not see any "triggers" that would fire each time a cell content is changed. As a side note, is there a way to step into the code of a change event? F8 does nothing.
View Replies!
View Related
Change Event Causing Event To Fire Again
I have the following code, which works perfectly: Private Sub Worksheet_Change(ByVal Target As Range) Dim TotalDays As Integer TotalDays = Range("C65536").End(xlUp).Row + 1 The code points to the next blank cell so the user can input a value. Each time the user enters a value I want to re-run the code so that the colour of the cell changes. However I also want to perform various calculations on the sheet. However this means the sheet is being changed and so continually repeats my code. How do I add the following, to my previous code? Range("E8").Value = Cells(7, 6) * 2.5
View Replies!
View Related
Change Worksheet Change To Macro
Is there a way to either change this so that it lets me to select the whole area or a way to make a macro to do what this does to one cell? Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("M13:IR458")) Is Nothing Then Select Case Target.Value Case "1" Target.Font.ColorIndex = 20 Target.Interior.ColorIndex = 10 Case "Good" Target.Font.ColorIndex = 2 Target.Interior.ColorIndex = 35 Case "Stable" Target.Font.ColorIndex = 2 Target.Interior.ColorIndex = 27......................
View Replies!
View Related
Copy Values To Another Worksheet For Calculation & Return Result
I have wind speeds and elevation data for 200 points. Each variable needs to go into a calculations spreadsheet on another worksheet. Once each variable gets put in the calculations automatically spit out the result. Now I need to use macro to automate this process so that it will repeat the steps I took for every line of data. In English code terms, I want the Macro to say, take wind speed number and input in wind speed cell in calculations spreadsheet. Then take elevation number and input in calculations spreadsheet. Then take result number from calculations spreadsheet and input in cell. Then loop to go down the 200 lines of data. Is this possoble? Sorry for the non-technical wording.
View Replies!
View Related
Change Font Color Based On Adjacent Cell Color
I have two columns. The first one (A) contains cells that have different Fill colors. The second column (B) contains text adjacent to the colored cells. I am trying to change the color of the text in the second column (B) to the corresponding color in the adjacent cell in the first column (A). I don't think conditional formating works well in this situation. I believe the solution would be some sort of macro.
View Replies!
View Related
Change Font Color If Cell Color Become Yellow (6)
I have font color white in blank cells in column E and I (from row 5 to row 245) so the visitors will not see the text. If any of these cells become yellow (color code is 6), the font color will become black so visitors can see the text alot far better than white. I've tried this code myself after this post but nothing happen
View Replies!
View Related
Change Text Color Based On Cell Color
I have various row cells in column (F) filled with the color Green. And corresponding text in Column G. How can I change the text of that particular row to white. i.e.: if any cell in column F is Green, change the text color of that row in Column G to white?
View Replies!
View Related
Change Event Error
I was wondering what I can add so this will not error when I delete the contents of the target range, Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("C11:C29, E11:E29")) Is Nothing Then If Target.Cells.CountLarge > 2 Then Exit Sub Application.EnableEvents = False Target.Value = UCase(Target) end sub
View Replies!
View Related
|
TRACKER
