Solved

How to modify vba code to not highlight text in red when pasting?

Posted on 2014-12-03
2
168 Views
Last Modified: 2014-12-03
The below code pastes text from the clipboard that is copied from IE, but it changes the font color to red.  I need to modify it so that the font color is black.

Sub Paste_Journal()
    On Error Resume Next
      With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
      .GetFromClipboard
      Range("A3").Value = .GetText
   End With

End Sub

Open in new window

0
Comment
Question by:kbay808
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 15

Accepted Solution

by:
gplana earned 500 total points
ID: 40478985
Try to add this line just before the EndWith:

Range("A3").Font.Color = RGB( 0, 0 , 0 )

So your code should be:
Sub Paste_Journal()
    On Error Resume Next
      With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
      .GetFromClipboard
      Range("A3").Value = .GetText
      Range("A3").Font.Color = RGB(0,0,0)
   End With

End Sub

Open in new window

0
 

Author Closing Comment

by:kbay808
ID: 40479002
That worked perfectly.  Thanks
0

Featured Post

Enroll in June's Course of the Month

June’s Course of the Month is now available! Experts Exchange’s Premium Members, Team Accounts, and Qualified Experts have access to a complimentary course each month as part of their membership—an extra way to sharpen your skills and increase training.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
This article describes a serious pitfall that can happen when deleting shapes using VBA.
This Micro Tutorial will demonstrate on a Mac how to change the sort order for chart legend values and decrpyt the intimidating chart menu.
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.

728 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question