Hi could someone please adjust this macro or offer another macro?
The macro clears the row and the 3 rows below if the number1 is found in column Gi
it clears columns A to FX of rows
What i need it to do is clear columns A to FX and columns GZ to JZ
Example gi4 = 1, A4 TO FX7 and GZ4 to JZ7 would clear.
Thanks
The macro clears the row and the 3 rows below if the number1 is found in column Gi
it clears columns A to FX of rows
What i need it to do is clear columns A to FX and columns GZ to JZ
Example gi4 = 1, A4 TO FX7 and GZ4 to JZ7 would clear.
Thanks
VBA Code:
Sub clear_rows ()
Dim Shtname As String
For sht = 1 To 81
Shtname = "" & sht
With Worksheets(Shtname)
inarr = Range(.Cells(1, 191), .Cells(75, 191)) ' load col A1 to A75 into memory
For i = 4 To UBound(inarr, 1)
If inarr(i, 1) = "1" Then
.Range(.Cells(i, 1), .Cells(i + 3, 180)) = ""
End If
Next i
End With
Next sht
End Sub