How Can I Fix - Delete entire rows in active sheet where range(A: A) column which are in capital letters.?

Delete entire rows in active sheet where range(A: A) column which are in capital letters.

Delete entire row in active sheet where the A: A column which are in capital letters.

Below is test data, I just want delete hilted in red color rows
How to write a macro or vba code for this ?

For EG:


 

A

B


1

Name

Sales


2

India

10


3

INDIA

20


4

USA

30


5

usa

40


6

      Europe

50


7

      FRANCE

60

Anwsers to the Problem Delete entire rows in active sheet where range(A: A) column which are in capital letters.

Download Error Fixer for Free Now

Hi,
 
You mention delete cells in capital letters and delete
highlight in red rows which is it?
 
 
This deletes rows in capital letters.
Alt+F11 to open VB editor, right click 'ThisWorkbook' and insert module and paste the code below in and run it.
 
 
Sub delete_Me()
Dim LastRow As Long, x As Long
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For x = LastRow To 1 Step -1
    If Cells(x, 1).Value = UCase(Cells(x, 1).Value) Then
        Rows(x).Delete
    End If
Next
End Sub

• Download the Microsoft Windows ISO (installation device) from the following website:
  
• http://www.microsoft.com/en-us/software-download/windows10
• Users must select the appropriate ISO, either 32 bit or 64 bit, depending upon their individual computer.
• Extract the ISO file to a separate USB device or burn the program to a compact disc.
• Run the Microsoft Windows 10 upgrade directly from the software that you have thus created.

Recommended Method to Repair the Problem: Delete entire rows in active sheet where range(A: A) column which are in capital letters.:

 

 

How to Fix Delete entire rows in active sheet where range(A: A) column which are in capital letters. with SmartPCFixer?

1. Click the button to download SmartPCFixer . Install it on your system.  Open it, and it will scan your system. The junk files will be shown in the scan result.

2. After the scan is finished, you can see the errors and problems need to be repaired. Click Fix All.

3. The Fixing part is done, the speed of your computer will be much higher than before and the errors have been fixed.

Related: Time I Try To Open My Internet Explorer It Says (Not Responding),No System Maintenance Icon In Control Panel,How I Put Two Ip In Two Lan Card In Win 7,Excel 2007 Copying Cells Into Filtered Rows,Detect When User Adds New Column To Sheet,Can't Type Quotes In Some Forums,Im Looking For A Formula To SORT & Match To Get Max,Part II - Need Help With Nested IF(AND Statements,Task Manager (and Perfmon) Report ~50% CPU But Processes List Says System Idle Process 96%,Cannot Uninstall Juno Internet Software From Windows 7 Enterprise 32
Read More: [Solution] Server Error: 5102 Windows Live Mail Error ID: 0x,Solution to Error: Error Code: 80200053 (Can't install KB982,How to Fix - BSoD Again This Time its Different.?,Troubleshoot:After waking from sleep, program windows are located off screen,Troubleshooting:my smart pad just stopped working so i plugged in my mouse but i don't know why my smart pad stopped working please help? Error,USB Mouse freezing,IE8 Auto Complete not working,How to get a "Text to Columns" macro and other macro to work together?,IE not working message pos up when trying to attach a photo file to email,Help with password protected file