VBA Editor Error Message

I keep getting the following error message: Encountered error at line 3 :For input string: "transparent" when running this macro:

Public Sub ApplyBackgroundColor()

Dim x As Variant

x = ActiveCell.Interior.Color

With Selection.borders

.LineStyle = xlContinuous

.Weight = xlThin

.Color = x

End With

Selection.Interior.Color = x

End Sub

I alsoget this message for line 22 of the following macro:

Sub ClearAllBorder()

Dim colorVal as Variant

colorVal = Selection.Cells(1,1).Interior.Color

With Selection.borders(xlEdgeLeft)

.LineStyle = xlContinuous

.Weight = xlThin

.Color = colorVal

End With

With Selection.borders(xlEdgeTop)

.LineStyle = xlContinuous

.Weight = xlThin

.Color = colorVal

End With

With Selection.borders(xlEdgeRight)

.LineStyle = xlContinuous

.Weight = xlThin

.Color = colorVal

End With

With Selection.borders(xlEdgeBottom)

.LineStyle = xlContinuous

.Weight = xlThin

.Color = colorVal

End With

With Selection.borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.Weight = xlThin

.Color = colorVal

End With

With Selection.borders(xlInsideVertical)

.LineStyle = xlContinuous

.Weight = xlThin

.Color = colorVal

End With

End Sub

Can you help? What other details do you need??

Kind regards

Hans

Access your files securely from anywhere

Zoho Developer Community

New to Zoho LandingPage?

Access Zoho LandingPage

Zoho LandingPage Resources

New to Zoho Survey?

Access Zoho Survey

Latest Feature Updates

Explore our Pricing & Plans

Zoho Survey Resources

Android Mobile Surveys

Insurvey Blogs

Insight Blogs

Tips & Tricks

New to Zoho CRM Plus?

Deliver unforgettable customer experiences

ACCESS ZOHO CRM PLUS

New to Zoho CRM Plus?

Deliver unforgettable customer experiences

ACCESS ZOHO CRM PLUS

New to Zoho Marketing Plus?

Everything you need to run your marketing

ACCESS ZOHO MARKETING PLUS

New to Zoho Marketing Plus?

Everything you need to run your marketing

ACCESS ZOHO MARKETING PLUS

New to Bigin?

Signup Now

Access Bigin

Latest Feature Updates

Zoho Desk Resources

Desk Community Learning Series
Digest
Functions
Meetups
Kbase
Resources
Glossary
Desk Marketplace
MVP Corner
Word of the Day

Tout forum

France ZUGs

Zoho SalesIQ Resources

Topic Participants
Hans R
Joseph Sam

Sticky Posts
Zoho Docs EOL extended to March 15, 2023. Migrate to WorkDrive now!
Update: Zoho Docs access will be blocked for all users. Read this official post to know more. Most Zoho Docs individual and org users (including Workplace and Zoho One users) have already migrated their data and users to Zoho WorkDrive in response to
Live Webinar - Drive your team towards tighter collaboration
Any project, big or small, involves a lot of planning, strategizing, scheduling, and budgeting. However, how your team executes the project really makes it a success. That's why teams need to work closer, stay dynamic, and be ready when they're needed. However skilful your team might be, a collaboration platform can make them even more efficient and productive. With organizations expanding globally, it's not only a challenge for teams to work together, but all to stay on the same page. To
Live Webinar: Collaboration Made Simple with Our Brand New Tool
Creating successful work groups when a team is geographically dispersed can be quite challenging. The process of keeping work and tasks in order becomes difficult and collaboration between team members can go haywire. As a result, companies have shifted the way in which teams traditionally manage and organize their work. More organizations now want an exclusive, convenient place to work together, one that’s accessible by both internal and external collaborators. That is why we have developed a
Live Webinar - Go 'Pro Team' With Our New Productivity Tool
Is your team forced to keep switching between apps to get work done? Does it take everyone longer to complete their tasks? Join us for a webinar on Thursday, May 17, 2018 to learn about our new product that'll transform the way you work and collaborate with teams across your organization - whether they are in the next room or even miles away. Teams are dynamic and they require tools that are flexible enough to cope with the ever-changing environment. But working with your colleagues doesn't
Live Webinar - Make the Most of your Team Collaboration
Do you have a collaborative team that's constantly looking for better ways to optimize productivity, connect with each other, and have better tools to share files? Well, look no further. The Zoho Docs team has something big in store for you and your team. Join us on Tuesday, April 17, 2018 to learn how to keep all your team files in one place, and turn you and your colleagues into productivity superstars! You'll also get a sneak peek at a new product that will help you: Organize your team's