Transfert cell values from file "A" to file "B" skipping columns in file "B".

[Sentrosi]

Hello,

The following code allows me to transfer cell values from the “Data Worksheet” to the Update Worksheet”. It also skips a column after every value entered in the “Update Worksheet”.

Is there a way to do the same, but instead of transferring from Worksheet to Worksheet, I want it to transfer from one Workbook to another?

Thank you.

Sub Jobs_Across()
Dim X As Long
'   Set number of spaces to skip in the transpose
Const SkipValue As Long = 2
'   Set Source Information Here
Const SourceSheet As String = "Data"
Const SourceStartRow As Long = 2
Const SourceEndRow As Long = 11
Const SourceColumn As Long = 1        ' Column A
'   Set Destination Information Here
Const DestinationSheet As String = "Update"
Const DestinationStartRow As Long = 1
Const DestinationColumn As Long = 1  ' Column A
'   Loop to transpose the Source information to the Destination
For X = SourceStartRow To SourceEndRow
Worksheets(DestinationSheet).Cells(DestinationStartRow, _
DestinationColumn + SkipValue * (X - SourceStartRow)).Value = _
Worksheets(SourceSheet).Cells(X, SourceColumn).Value
Next
End Sub