Sub Macro1()
Dim LastRow As Long, LastColumn As Long, i As Long, j As Long
    LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    For j = 3 To LastColumn - 1 Step 2
        LastRow = Cells(Rows.Count, j).End(xlUp).Row
        If LastRow > 1 Then
            For i = 2 To LastRow
                If Cells(i, j) <> "" Then Cells(i, j) = Cells(i, j) & "-"
            Next
        End If
    Next
End Sub

Sub Macro1()
Dim iColor As Long
    iColor = Range("A1").Interior.Color
    ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = iColor
End Sub