I will try to explain this as best I can. I will first say I inherited this "report" so it's not my design at all and I'm
just trying to speed up a daily process. The workbook has 30 sheets. Each day I have to go to 20 of the 30 sheets, find a
specific date located in column A, copy the entire row, and paste the values right back into the line so I delete the
formulas. like I said, don't ask why if possible . It's how they set it up.
I'm trying to build code that will
run through each sheet I designate, find the cell in Row A, then copy and paste only the values. I got the code to work for
one sheet. But, I cannot get it to work when I want it to run through sheet 23, 24, 29 etc.
' finds date in Column A and cut and pastes line
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Enter a Date")
If Trim(FindString) "" Then
With Sheets("Split 150_880").Range("A:A")
Set Rng = .Find(What:=FindString, _
If Not Rng Is Nothing Then
Application.Goto Rng, True
MsgBox "Nothing found"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
Application.CutCopyMode = False
If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines