|
Sub Test()
On Error Resume Next
Set Sh = Sheets("A")
If Err = False Then
Sheets("A").Range("B11").Copy
Sheets("X").Range("F8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Err.Clear
Set Sh = Sheets("B")
If Err = False Then
Sheets("B").Range("B11").Copy
Sheets("X").Range("G8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Err.Clear
Set Sh = Sheets("C")
If Err = False Then
Sheets("C").Range("B11").Copy
Sheets("X").Range("H8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
End Sub
|
|