Can This Be Simplified?

[msfatman]

Is it possible to make this code simpler?

Dim Found As Range
 
With Sheets("Viewer")
Set Found = Sheets("A").Range("CJ6:FK6").Find(what:=.Range("D3").Value)
If Not Found Is Nothing Then
Found.Offset(-2, 0).Value = .Range("G8").Value
Found.Offset(1, 0).Value = .Range("F8").Value
End If
 
Set Found = Sheets("B").Range("CJ6:FK6").Find(what:=.Range("D3").Value)
If Not Found Is Nothing Then
Found.Offset(-2, 0).Value = .Range("G9").Value
Found.Offset(1, 0).Value = .Range("F9").Value
End If
 
Set Found = Sheets("C").Range("CJ6:FK6").Find(what:=.Range("D3").Value)
If Not Found Is Nothing Then
Found.Offset(-2, 0).Value = .Range("G10").Value
Found.Offset(1, 0).Value = .Range("F10").Value
End If
 
Set Found = Sheets("D").Range("CJ6:FK6").Find(what:=.Range("D3").Value)
If Not Found Is Nothing Then
Found.Offset(-2, 0).Value = .Range("G11").Value
Found.Offset(1, 0).Value = .Range("F11").Value
End If
 
Set Found = Sheets("E").Range("CJ6:FK6").Find(what:=.Range("D3").Value)
If Not Found Is Nothing Then
Found.Offset(-2, 0).Value = .Range("G12").Value
Found.Offset(1, 0).Value = .Range("F12").Value
End If
 
Set Found = Sheets("F").Range("CJ6:FK6").Find(what:=.Range("D3").Value)
If Not Found Is Nothing Then
Found.Offset(-2, 0).Value = .Range("G13").Value
Found.Offset(1, 0).Value = .Range("F13").Value
End If
 
Set Found = Sheets("G").Range("CJ6:FK6").Find(what:=.Range("D3").Value)
If Not Found Is Nothing Then
Found.Offset(-2, 0).Value = .Range("G14").Value
Found.Offset(1, 0).Value = .Range("F14").Value
End If
End With

 

[ajetrumpet]

I apologize for not wanting to read through all of that, and yes, it can prolly be simplified, but what does it do exactly, if you don't mind writing it down for us?

 

[Jacophile]

Hi, you could try something like this:

Const SheetNames As String = "A,B,C,D"
Sub Test()
Dim s As Worksheet[INDENT] For Each s In ActiveWorkbook.Worksheets
[INDENT] If InStr(1, SheetNames, s.Name) Then
[INDENT]'do stuff with the sheet defendant on it's name
[/INDENT] [/INDENT][INDENT]End If
[/INDENT]Next s
[/INDENT]End Sub