Odtnhj

Okay, let me start by saying I am a noob at this. I'm following this step-by-step video, and I still found a way to mess it up somehow. I've tried reading related questions, but I don't really know much about VBA to make sense of the answers.

Basically, I'm trying (and failing) to create an "Employee Manager." At around 9:44 of the video, the narrator said we'll need to create a macro to hide and show specific cells depending on what tab we click on.

Here is my code for Sheet1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("E4:H4")) Is Nothing Then
 Range("B2").Value = Target.Column
 Range("F2").Select
 SwitchHTabs
 End If
End Sub

And I have this code under modules, with the macro named SwitchHTabs:

Option Explicit

Sub SwitchHTabs()
 Dim SelCol As Long
 Dim FirstRow As Long

 SelCol = ActiveCell.Column

 With Sheet1
 .Range("5:84").EntireRow.Hidden = True
 FirstRow = 5 + ((SelCol - 5) * 20)
 .Range(FirstRow & "." & FirstRow + 19).EntireRow.Hidden = False 'This is the line with the error
 End With
End Sub

This error pops up when I try to run the code:

And when I click Debug, it highlights this line of code:

Where'd I mess up? I'm using Excel 2016. Thank you!

Compare your two Range lines in that sub:

.Range("5:84").EntireRow.Hidden = True 'Works
.Range(FirstRow & "." & FirstRow + 19).EntireRow.Hidden = False 'Doesn't Work

For the sake of argument, let's assume that FirstRow is 1, and then process that second line of code:

.Range("5:84").EntireRow.Hidden = True 'Works
.Range("1.20").EntireRow.Hidden = False 'Doesn't Work

Hopefully it is now easier to see that you have used a Full-Stop in place of a Colon.

(As an aside - you can use .Rows("5:84").Hidden instead to remove the need for .EntireRow)