Replace the red code block with this
Be sure you copy the code in MacroAllFile.xls and that this file is not in the folder with the other files
'Copy a range to a worksheet in mybook
On Error Resume Next
Set sh = mybook.Worksheets(1)
With sh
If .ProtectContents = False Then
With ThisWorkbook.Worksheets(1).Range("C:C")
sh.Range("C1").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
Else
ErrorYes = True
End If
End With
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"JavierDiaz4" <(E-Mail Removed)> wrote in message news:0DA77D9B-CFC8-48E1-8C98-(E-Mail Removed)...
> Exactly. That would be perfect!
>
> "Ron de Bruin" wrote:
>
>> Do you want to replace the data of column C of each workbook with
>> the data of column C from MacroAllFile.xls or do you want to insert this column
>>
>>
>> --
>>
>> Regards Ron de Bruin
>> http://www.rondebruin.nl/tips.htm
>>
>>
>> "JavierDiaz4" <(E-Mail Removed)> wrote in message news:B35E5AA5-535C-4EBC-8D53-(E-Mail Removed)...
>> > Thanks Ron, which one do I use to just copy column C from MacroAllFile.xls
>> > and paste that column on all 3783 xls in a folder?
>> >
>> > "Ron de Bruin" wrote:
>> >
>> >> See
>> >> http://www.rondebruin.nl/copy4.htm
>> >>
>> >> --
>> >>
>> >> Regards Ron de Bruin
>> >> http://www.rondebruin.nl/tips.htm
>> >>
>> >>
>> >> "JavierDiaz4" <(E-Mail Removed)> wrote in message
>> >> news:3DB34AF3-9B34-4C8B-BC5D-(E-Mail Removed)...
>> >> > Hello Everyone,
>> >> >
>> >> > I was wondering how can I copy Column C from MacroAllFile.xls and insert
>> >> > paste it into all workbooks in a folder into the first worksheet in each
>> >> > workbook.
>> >> >
>> >> > Thanks in advance,
>> >>
>>
>>