Need Help With a Macro

Logit · #1 05-05-2018, 06:26 PM

Code:

Option Explicit

Sub Button1_Click()
    Dim x As Long
    Sheet1.Select

    Application.ScreenUpdating = False
    For x = 2 To ThisWorkbook.Sheets.Count
        If Sheets(x).Name <> "Sheet1" Then
            Sheets(x).Select
            If Range("Y20").Value = "G" Then  'searches for term G
                Range("Y19:Z19").Value = Range("Y20:Z20").Value
                Range("Y20").EntireRow.Delete
            End If
        End If
    Next x
    Application.ScreenUpdating = True
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Footnote extraction macro [Why is this macro so slow? / anyway to make it faster?]	Le_Blanc	Word VBA	10	03-22-2021 11:38 AM
Spell check macro within macro button field doesn't work in one document	samuelle	Word VBA	0	07-20-2016 02:27 AM
Macro Question: Need help making a macro to highlight the first word in every sentence	LadyAna	Word	1	12-06-2014 10:39 PM
Macro Needed to bold specific lines and Macro to turn into CSV	anewteacher	Word VBA	1	05-28-2014 03:59 PM
custom icon, undo/redo for macro, permanent macro	Rapier	Excel	0	08-05-2013 06:30 AM