copy columns from one sheet to another

[daveturner80]

I have 8 sheets in a workbook and need to copy Column A in worksheet titled Activities in to Column A in all the other sheets and keep the same format from Column A in the Activities sheet to the other sheets.
Thanks for any help.
Dave

 

[VoG]

Try

Sub b()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    With ws
        If .Name <> "Activities" Then Worksheets("Activities").Columns("A").Copy Destination:=.Range("A1")
    End With
Next ws
End Sub

 

[daveturner80]

This worked but I need it to copy the formatting and fonts in column A of the activities sheet to all the other sheets and to just copy row A3 to A300 because I have headings in both row A1 & A2.
Thanks,
Dave

 

[VoG]

Maybe this

Sub b()
Dim ws As Worksheet
Worksheets("Activities").Range("A3:A300").Copy
For Each ws In ActiveWorkbook.Worksheets
    With ws
        If .Name <> "Activities" Then
            .Range("A3").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
            .Range("A3").PasteSpecial Paste:=xlPasteFormats
            .Range("A3").PasteSpecial Paste:=xlPasteColumnWidths
        End If
    End With
Next ws
Application.CutCopyMode = False
End Sub

 

[daveturner80]

this works well except t Col A has a Verdana font and size is 8 but when it copies the names to other sheets the font and size say they are the same but they look smaller to me. What do you think might be going on here?
Thanks,
Dave

 

[VoG]

Is the zoom setting different on the other sheets?

 

[daveturner80]

How would I check on this?
I never even knew there was a zoom feature.
Thanks,
Dave

 

[jeffreybrown]

Hi Dave,

Look at the bottom right of your spreadsheet. Do you see a percentage with a scroll bar?

 

[daveturner80]

I checked and they where different. I changed them and everything looks great now.
You guys are good.
Thanks,
Dave