Need Help With a Macro

Logit · #2 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

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