Guest User

Untitled

a guest
Dec 14th, 2018
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.17 KB | None | 0 0
  1. Sub FormatRange()
  2.  
  3. Dim xName As Range
  4.  
  5. Set xName = Range("B3", Range("B2").End(xlDown))
  6.  
  7. Sheet2.Activate
  8.  
  9. xName.Font.Color = vbRed
  10. xName.Font.Italic = True
  11.  
  12. End Sub
Add Comment
Please, Sign In to add comment