Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando evento Worksheet_BeforeRightClick, que ocorre quando clicar na coluna B, no intervalo de células Range(B2:B10) com o botão direito do mouse, insere uma formatação de cores na célula clicadas, como também retira a formatação inserida se clicado uma segunda vez.
Espero que o exemplo possa ajudá-los em alguma coisa, Fiquem com Deus, Expedito Marcondes.


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Dim c
Cancel = True
For Each c In Range("B2:B10")
If c = Target Then c.Interior.ColorIndex = IIf(c.Interior.ColorIndex = 4, xlNone, 4)
Next c
End Sub

Aprenda tudo sobre o lAplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

Essa macro do Aplicativo Microsoft Excel VBA, adiciona (5) cinco planilhas ao livre, referente aos dias da semana:
Segunda, Terça, Quarta, Quinta, Sexta, e a outra macro abaixo deleta todas as planilhas preservando uma, auxliando no teste do usuário desenvolvedor.


Option Explicit

Sub Adiciona_planilhas_nome_dia_da_semana()
Dim i As Integer

On Error Resume Next

If TypeName(Selection) <> "Range" Then
MsgBox "A folha deve estar ativa para adicionar nova folha !", vbInformation, "Saberexcel - Planilha Ativa"
Exit Sub
End If

Application.ScreenUpdating = False

For i = 1 To 5
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Application.WorksheetFunction.Proper(Format(DateSerial(1, 1, i), "ddd"))
Next i

End Sub

'Esta macro deleta todas as folhas de planilha e preserva a desejada, macro ajudará no teste da macro.
Sub Deleta_todas_menos_a_desejada()
Dim Plan As Worksheet
On Error Resume Next
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
For Each Plan In Worksheets
If (Plan.Name <> "Plan1") Then
Plan.Delete
End If
Next
Application.DisplayAlerts = True
End Sub


Aprenda Aplicativo Microsoft Excel VBA - SaberExcel

SaberExcel o Site das Macros
Adiciona uma planilha e formula de números aleatórios na nova planilha de Range(A1:D4)

Macro do Aplicativo Microsoft Excel VBA, adiciona uma nova planilha ao wkb (workbook) e definir sua propriedade Visible como (Oculta), e inserir nesta nova planilha uma fórmula de números aleatórios, em determinada range, isto é, na range A1:D4.

Este exemplo cria uma nova planilha e, em seguida,define sua propriedade Visible como xlVeryHidden.Para referir-se à planilha, use sua variável de objeto, Nova_Planilha, como mostrado na última linha do exemplo.Para usar a variável de objeto Nova_Planilha em um outro procedimento,você precisa declará-la como uma variável pública (Public Nova_Planilha As Object) na primeira linha do módulo antes de qualquer procedimento Sub ou Function.

Sub Adiciona_Plan_e_Formulas()
Set Nova_Planilha = Worksheets.Add
Nova_Planilha.Visible = xlVeryHidden
Nova_Planilha.Range("A1:D4").Formula = "=RAND()" ' formula a ser inserida
End Sub

Observe a mesma macro, porém fiz uma pequena modificação para realização do teste do Desenvolvedor.
Sub Adiciona_Plan_e_Formulas()
Dim resposta As String

Application.DisplayAlerts = False 'nao emite e mensagem "deseja salvar...."
Sheets("Saberexcel").Visible = True
Sheets("Saberexcel").Delete 'na entrada da macro deleta a planilha existente.

Set Nova_Planilha = Worksheets.Add
Nova_Planilha.Name = "SaberExcel"
Nova_Planilha.Visible = xlVeryHidden
Nova_Planilha.Range("A1:D4").Formula = "=RAND()" ' formula a ser inserida
Application.DisplayAlerts = False

resposta = MsgBox("Planilha [Saberexcel] criada com sucesso, ocultada, deseja visualizá-la?", vbYesNo + vbInformation, "Saberexcel - site das macros")

If resposta = 6 Then
Sheets("Saberexcel").Visible = True
End If

End Sub

Aprenda Aplicativo Microsoft Excel VBA --((( SaberExcel )))--

Saberexel - o site das macros

Saberexcel - site das Macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando evento Worksheet_BeforeRightClick, que ocorre quando clicar na coluna B, no intervalo de células Range(B2:B10) com o botão direito do mouse, insere uma formatação de cores na célula clicadas, como também retira a formatação inserida se clicado uma segunda vez.
Espero que o exemplo possa ajudá-los em alguma coisa, Fiquem com Deus, Expedito Marcondes.


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Dim c
Cancel = True
For Each c In Range("B3")
If c = Target Then c.Interior.ColorIndex = IIf(c.Interior.ColorIndex = 4, xlNone, 4)
Next c
End Sub


Aprenda tudo sobre o lAplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

Saberexcel - O Site das Macros

Esta macro do Aplicativo Microsoft Excel VBA, ocultam as planilhas que forem selecionadas na aba
Sub Ocultar_planilhas_selecionadas()
On Error GoTo Sair
Dim vPergunta As String
vPergunta = MsgBox("Deseja ocultar as planilhas selecionadas ? ", vbQuestion + vbYesNo, "Saberexcel - site das macros")
If Not vPergunta = vbYes Then Exit Sub
ActiveWindow.SelectedSheets.Visible = False
Exit Sub
Sair: MsgBox Err.Description
End Sub

'Esta macro do Aplicativo Microsoft Excel VBA, mostram todas as planilhas, auxliando no teste
Sub mostrar_todas_planilhas()
On Error Resume Next
Dim Wsh As Worksheet
For Each Wsh In ActiveWorkbook.Worksheets
Wsh.Visible = xlSheetVisible
Next Wsh
Saber1.Select
End Sub

Aprenda Microsoft Excel VBA com qualidade Saberexcel

Baixe o exemplo de planilha das macros acima