Automating Style Settings To Make Skins

I'm developing a user interface for my spreadsheet that allows users to choose from pre-set skins. The primary mechanism for setting the skins is through a fairly long list of styles applied throughout several sheets. By choosing a skin, a user will start a code that will cross- reference the background color, font characteristics, etc. for that particular skin, and those characteristics will be applied to the pre-set styles. Cool in theory. Problem: The VBA code for modifying the styles doesn't seem to apply consistently. Particularly any code involved in fonts or borders yields an error: "Unable to set the XXXX property of the YYYYY class." This despite it all being modeled on a record macro session output. What setting or element am I missing? I would be most grateful for your expert input. Here's the module that sets the styles based on a table of style names in the Design sheet. I've attempted to keep the myriad of settings clear by naming the ranges by their properties. Each of the lines causing errors are commented out.

Public Sub SetStyles()
'Works from the Style Table in the Design Sheet -- Assigns values based on table contents.
Dim i As Integer
Dim j As Integer
Dim oStyle As Object
Dim sStyle As String
Dim xlVAlign1 As XlVAlign
'Can't delete all existing styles because it deletes all style refs in sheets.
Call UnprotectUs 'Unprotects all sheets so that styles can be modified.
'For Each oStyle In ActiveWorkbook.Styles
' If Not oStyle.Name = "Normal" Then oStyle.Delete
'Next
'Add the styles that are named and don't exist.
i = 1
For Each oStyle In Range("StyleName").........................