So hopefully you can see what I'm trying to do. The title pretty much describes it all. Plz halp
you see, my problem is that it's skipping some of the steps that it should do.
Sub changeData() 'Application.ScreenUpdating = False ' faster for modifying values on sheet Dim header As String Dim numRows As Long Dim col As Long, y As Long, a As Integer Dim c As Excel.Range header = "Search:" ' header name to find Set c = ActiveSheet.Range("1:1").Find(header, LookIn:=xlValues) If Not c Is Nothing Then col = c.Column 'y = Range(c.Offset(1), c.End(xlDown)) c.Offset(1).Select Else ' can't work with it Exit Sub End If a = 1 While c(a) <> "" c(a).Select If c(a) = c.Offset(a + 1) Then c(a).Offset(0, 1) = "IT WORKED" a = a + 1 Else a = a + 1 End If ' (whatever this is) Wend