Hi all,
I have an issue i'm not sure how to resolve,
firstly i send out this document for others to use and then they send it back to me, the issue arises when the user sends the file back under a different name,
it stops this code from working because of these lines in the code "Windows("New Pick Form.xlsm").Activate" is there a way around this issue, its basically the name change that's causing the problem?
thanks in advance,
I have an issue i'm not sure how to resolve,
firstly i send out this document for others to use and then they send it back to me, the issue arises when the user sends the file back under a different name,
it stops this code from working because of these lines in the code "Windows("New Pick Form.xlsm").Activate" is there a way around this issue, its basically the name change that's causing the problem?
thanks in advance,
VBA Code:
Sub mac1pasteboh()
'
' mac1pasteboh Macro
'
'
Windows("L461 PP1 BOH.xlsm").Activate
Sheets("LSA").Select
Windows("New Pick Form.xlsm").Activate
Sheets("Sheet1").Select
Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("L461 PP1 BOH.xlsm").Activate
Range("A2").Select
Selection.End(xlDown).Select
Range("A:A").Find("").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("New Pick Form.xlsm").Activate
Range("B4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("L461 PP1 BOH.xlsm").Activate
Range("B2").Select
Selection.End(xlDown).Select
Range("B:B").Find("").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("New Pick Form.xlsm").Activate
Range("F4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("L461 PP1 BOH.xlsm").Activate
Range("F2").Select
Selection.End(xlDown).Select
Range("F:F").Find("").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O2").Select
Selection.End(xlDown).Select
Range("O:O").Find("").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("New Pick Form.xlsm").Activate
Range("H3").Select
Application.CutCopyMode = False
End Sub