Having problems getting this portion of the module to work.
'Look for and fix "Mac"
If InStr(1, strName, "Mac") Then
strName = Left(strName, InStr(1, strName, "Mac") - 1) & "Mac" & _
StrConv(Mid(strName, InStr(1, strName, "Mac") + 2), vbProperCase)
End If
No matter what you type, it will not...